TLinkedList

type TLinkedList = class

protected

  procedure DoFreeData(); virtual;

public

  destructor Destroy; override;

  function Add;

  procedure Remove();

  function IndexOf();

  function GetNode();

  procedure Exchange();

  procedure InsertBefore();

  procedure InsertAfter();

  procedure Clear;

  procedure IterateList();

  property Head: PLinkedNode; [rw]

  property Tail: PLinkedNode; [rw]

  property Count: Integer; [rw]

  property OnFreeData: TFreeDataEvent; [rw]

end;

TLinkedList

TObject