TmnrNode

type TmnrNode = class(TInterfacedPersistent)

protected

  procedure SetNodes();

  function GetNodes;

  procedure Link(); virtual;

  procedure UnLink(); virtual;

  procedure Attach; virtual;

  procedure Detach; virtual;

  function GetIndex; virtual;

  function GetCount; virtual;

  function GetHead;

  function GetFirst;

  function GetLast;

  function GetNext;

  function GetPrior;

  procedure SetFirst();

  procedure SetLast();

  procedure SetNext();

  procedure SetPrior();

  function DoGetHead; virtual;

public

  constructor Create();

  destructor Destroy; override;

  property Nodes: TmnrNode; [rw]

  property Next: TmnrNode; [rw]

  property Prior: TmnrNode; [rw]

  property First: TmnrNode; [rw]

  property Last: TmnrNode; [rw]

  property Head: TmnrNode; [r]

  property Count: Integer; [r]

  procedure IncCount(); virtual;

  procedure DecCount(); virtual;

  property Index: Integer; [r]

  procedure MoveAfter();

  procedure MoveBefore();

  procedure MoveUp;

  procedure MoveDown;

  procedure MoveFirst;

  procedure MoveLast;

end;

TmnrNode

TObject