Items

 (Available in 00 TS Tools(Base) - TS_Tools_Atomizer)

Source

ACCESS Items AS ARRAY PASCAL CLASS TS_Atomizer
LOCAL aItems AS ARRAY
   TSTrace Enter
   aItems:=AClone( SELF:_ItemsAtivated )
   IF SELF:_ItemCacheInfoFirstChar==NULL_PTR .AND. SELF:_ItemCacheInfoItemIndex ; ...
  ... ==NULL_PTR .AND. LOGIC( _CAST, ALen( aItems ) )
      aItems:=ASort( aItems, NIL, NIL, { | _1, _2 | TS_BytePtrCompare( IVarGet( _1 ; ...
     ... , #PSZItem ), IVarGet( _2, #PSZItem ) )<=0 } )
   END
   TSTrace Leave
RETURN aItems