TCollection

type TCollection = object(TObject)

  Items: PItemList;

  Count: Sw_Integer;

  Limit: Sw_Integer;

  Delta: Sw_Integer;

  constructor Init();

  constructor Load();

  destructor Done; virtual;

  function At();

  function IndexOf(); virtual;

  function GetItem(); virtual;

  function LastThat();

  function FirstThat();

  procedure Pack;

  procedure FreeAll;

  procedure DeleteAll;

  procedure Free();

  procedure Insert(); virtual;

  procedure Delete();

  procedure AtFree();

  procedure FreeItem(); virtual;

  procedure AtDelete();

  procedure ForEach();

  procedure SetLimit(); virtual;

  procedure Error(); virtual;

  procedure AtPut();

  procedure AtInsert();

  procedure Store();

  procedure PutItem(); virtual;

end;

TCollection

TObject

TObject