Comparar Array

[Frafive]

Hola Amigos

Existe alguna forma de poder comparar el valor de dos array ? el array es de varias dimensiones.


un saludo

[mmercado]

Existe alguna forma de poder comparar el valor de dos array ? el array es de varias dimensiones.

Prueba el siguiente código:

Code: Select all  Expand view  RUN

//-----------------------------------------------------------------------------------------------------//

Function AComp( aArr1, aArr2 )

   Local nEle

   If Empty( aArr1 ) .and. Empty( aArr2 )
      Return .T.
   ElseIf Empty( aArr1 ) .or. Empty( aArr2 )
      Return .F.
   ElseIf ValType( aArr1 ) != "A" .or. ValType( aArr2 ) != "A"
      Return .F.
   ElseIf Len( aArr1 ) != Len( aArr2 )
      Return .F.
   EndIf

   For nEle := 1 To Len( aArr1 )

      If ValType( aArr1[ nEle ] ) == "A" .and. ! AComp( aArr1[ nEle ], aArr2[ nEle ] )
         Return .F.
      ElseIf ValType( aArr1[ nEle ] ) != ValType( aArr2[ nEle ] )
         Return .F.
      ElseIf ! ( aArr1[ nEle ] == aArr2[ nEle ] )
         Return .F.
      EndIf

   Next

Return .T.

Saludos.

Manuel Mercado

[Frafive]

Gracias Manuel, pero no me funciona, los array son multidimensional,

array1:=aclone(array)

Meto el array1 en un browse, el usuario puede cambiar cualquier valor del array1, una vez cerrado el browse quiero comprobar si ha cambiado array1.


Un saludo

[antolin]

Pasa los array a string y comparalos. Por ejemplo:

cAntes = ASAVE(ARRAY1) Antes del browse
...
cDespues = ASAVE(ARRAY1) Después del browse
...
IF !( cAntes == cDespues )
HAN CANBIADO
ELSE
NO HAN CAMBIADO
ENDIF
...

[mmercado]

Gracias Manuel, pero no me funciona, los array sonmultidimensional

Ya la probaste?, esa función se supone que debería comparar arrays multidimensionales.

Manuel Mercado[/quote]