>Is there a function or command to do this? Without using a loop.
Antonio,
I have not tested it but I feel it may work (of course, no objects)
?ArrayEqual(@ArrayName1, @ArrayName2)
function ArrayEqual(Array1, Array2)
local s, AreEqual
s = select(0)
create cursor XXX (A1 M default '' nocptrans, A2 M default '' NOCPTRANS)
append blank
=SaveToMemo(@array1, 'a1')
=SaveToMemo(@array2, 'a2')
AreEqual = (a1 == a2)
use in xxx
select (s)
return AreEqual
endfunc
function SaveToMemo(ArrayName, FieldName)
save to memo (FieldName) all like ArrayName
endfunc
Gregory