compare Array ?
Posted: Tue Oct 25, 2022 8:44 am
hi,
i do have 2 x Array from DIRECTORY()
how can i (quick) "compare" if they same
i do have 2 x Array from DIRECTORY()
how can i (quick) "compare" if they same
Hi Jimmy,
Please take a look at the following function which is included in the Minigui core:
Code: Select all
*-----------------------------------------------------------------------------*
FUNCTION HMG_IsEqualArr ( aData1 , aData2 )
*-----------------------------------------------------------------------------*
LOCAL x
LOCAL lEqual := .T.
IF Len ( aData1 ) == Len ( aData2 )
FOR x := 1 TO Len ( aData1 )
IF ValType ( aData1 [x] ) == ValType ( aData2 [x] )
IF ISARRAY ( aData1 [x] )
lEqual := HMG_IsEqualArr ( aData1 [x], aData2 [x] )
ELSE
IF aData1 [x] <> aData2 [x]
lEqual := .F.
EXIT
ENDIF
ENDIF
ELSE
lEqual := .F.
EXIT
ENDIF
NEXT x
ELSE
lEqual := .F.
ENDIF
RETURN lEqual
