TLabRefList

type generic TLabRefList <T>= class(TLabClass)

public

type

  TItemPtr = ^T;

  TCmpFunc = function(

  const Item0: T;

  const Item1: T

):Integer;

  TCmpFuncObj = function(

  const Item0: T;

  const Item1: T

):Integer of object;

protected

  procedure SetItem();

  function GetItem();

  procedure SetCapacity();

  function GetCapacity;

  function GetFirst;

  function GetLast;

  function GetData;

public

  constructor Create();

  destructor Destroy; override;

  property Capacity: Integer; [rw]

  property Count: Integer; [r]

  property Items []: T; default; [rw]

  property First: T; [r]

  property Last: T; [r]

  property Data: TItemPtr; [r]

  function Find();

  function Add();

  function Pop;

  function Extract();

  function Insert();

  procedure Delete();

  procedure Remove();

  procedure Clear;

  procedure Allocate();

  function Search();

  procedure Sort();

end;

TLabRefList

TObject