TStrListEx

type TStrListEx = object(TStrList)

protected

  FObjects: PList;

  function GetObjects();

  procedure SetObjects();

  procedure Init; virtual;

  procedure ProvideObjCapacity();

public

  destructor Destroy; virtual;

  property Objects: DWORD; [rw]

  procedure AddStrings();

  procedure Assign();

  procedure Clear;

  procedure Delete();

  procedure Move();

  procedure Swap();

  procedure Sort();

  function LastObj;

  function AddObject();

  procedure InsertObject();

  function IndexOfObj();

end;

TStrListEx

TStrList

TObj

_TObj