?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