TLinkedList

type generic TLinkedList <T>= class

default

type

  PItem = ^TItem;

  TItem = record

public

  Data: T;

  Prev: PItem;

  Next: PItem;

  function IsFirst;

  function IsLast;

  function IsSingle;

  function InsertAfter();

  function InsertBefore();

end;

  TTraverseFunc = function(

  Item: PItem;

  ud: pointer

):Boolean;

protected

  procedure DoNotify();

  procedure Traverse();

  procedure LinkAfter();

  procedure LinkBefore();

  procedure Unlink();

public

  destructor Destroy; override;

  procedure Clear;

  procedure Delete();

  function InsertFirst();

  function InsertLast();

  function InsertAfter();

  function InsertBefore();

  procedure RotateLeft;

  procedure RotateRight;

  property Count: Integer; [r]

  property First: PItem; [r]

  property Last: PItem; [r]

  property OnNotify: ; [rw]

public

type

  TEnumerator = TEnumerator;

public

  function GetEnumerator;

end;

TLinkedList

TObject