oX = NEWOBJECT('form') ?TYPE("oX.top[0]") ?TYPE("oX.top[1]") DIMENSION xx[1] ?TYPE("xx[0]") ?TYPE("xx[1]") oX.AddProperty('aA[1]') ?TYPE("oX.aA[0]") ?TYPE("oX.aA[1]")So, to test if a variable or property is an array:
llArray = TYPE("array[0]") = 'U' AND TYPE("array[1]") <> 'U'