TIndexedAVLTree

type TIndexedAVLTree = class(TAvgLvlTree)

protected

  fLastIndex: SizeInt;

  fLastNode: TIndexedAVLTreeNode;

  procedure DeletingNode(); override;

  procedure Init; override;

  procedure NodeAdded(); override;

  procedure RotateLeft(); override;

  procedure RotateRight(); override;

  procedure SwitchPositionWithSuccessor(); override;

public

  function GetNodeAtIndex();

  function NodeToIndex();

  function IndexOf();

  property Items []: Pointer; default; [r]

  procedure ConsistencyCheck; override;

  function NodeToReportStr(); override;

end;

TIndexedAVLTree

TAvgLvlTree

TObject