>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