compare two arrays

[Natter]

Is there any function to compare the identity of two arrays (so as not to do it piecemeal ) ?

[Cgallegoa]

Code: Select all  Expand view

#include "FiveWin.ch"

Function Main()

   local a1 := { { 0, 0, 0 }, { 1, 0, 0 }, { 0, 1, 0 }, { 0, 0, 1 },;
                 { 1, 1, 0 }, { 1, 0, 1 }, { 0, 1, 1 }, { 1, 1, 1 } }
   local a2 := { { 0, 0, 0 }, { 1, 1, 1 } }
   local a3 := { { 0, 0, 0 }, { 1, 1, 1 } }
   
   MsgInfo( "*** Syntax 1: ***" + CRLF + CRLF + ;
            "a1 == a2:  " + cStr(fw_ValToExp( a1 ) == fw_ValToExp( a2 )) + CRLF + ;
            "a2 == a3:  " + cStr(fw_ValToExp( a2 ) == fw_ValToExp( a3 )))

   MsgInfo( "*** Syntax 2: ***" + CRLF + CRLF + ;
            "a1 == a2:  " + cStr(FW_StrICmp( a1, "==", a2 )) + CRLF + ;
            "a1 == a3:  " + cStr(FW_StrICmp( a1, "==", a3 )) + CRLF + ;
            "a2 == a3:  " + cStr(FW_StrICmp( a2, "==", a3 )))

Return nil
 

Regards,

[Natter]

Thanks, I get it!