TAVLTree

type TAVLTree = class

protected

  FCount: SizeInt;

  FNodeClass: TAVLTreeNodeClass;

  fNodeMgr: TBaseAVLTreeNodeManager;

  fNodeMgrAutoFree: Boolean;

  FOnCompare: TListSortCompare;

  FOnObjectCompare: TObjectSortCompare;

  FRoot: TAVLTreeNode;

  procedure BalanceAfterInsert();

  procedure BalanceAfterDelete();

  procedure DeletingNode(); virtual;

  function FindInsertPos();

  procedure Init; virtual;

  procedure NodeAdded(); virtual;

  procedure RotateLeft(); virtual;

  procedure RotateRight(); virtual;

  procedure SwitchPositionWithSuccessor(); virtual;

  procedure SetOnCompare();

  procedure SetOnObjectCompare();

  procedure SetCompares();

  procedure SetNodeClass();

public

  constructor Create();

  constructor CreateObjectCompare();

  destructor Destroy; override;

  property OnCompare: TListSortCompare; [rw]

  property OnObjectCompare: TObjectSortCompare; [rw]

  property NodeClass: TAVLTreeNodeClass; [rw]

  procedure SetNodeManager();

  function NewNode; virtual;

  procedure DisposeNode(); virtual;

  procedure Add();

  function AddAscendingSequence();

  procedure Delete();

  function Remove();

  function RemovePointer();

  procedure MoveDataLeftMost();

  procedure MoveDataRightMost();

  procedure Clear;

  procedure FreeAndClear;

  procedure FreeAndDelete(); virtual;

  function Equals(); override;

  function IsEqual();

  procedure Assign(); virtual;

  property Root: TAVLTreeNode; [r]

  property Count: SizeInt; [r]

  function Compare();

  function Find();

  function FindKey();

  function FindNearestKey();

  function FindSuccessor();

  function FindPrecessor();

  function FindLowest;

  function FindHighest;

  function FindNearest();

  function FindPointer();

  function FindLeftMost();

  function FindRightMost();

  function FindLeftMostKey();

  function FindRightMostKey();

  function FindLeftMostSameKey();

  function FindRightMostSameKey();

  function GetEnumerator;

  function GetEnumeratorHighToLow;

  procedure ConsistencyCheck; virtual;

  procedure WriteReportToStream();

  function NodeToReportStr(); virtual;

  function ReportAsString;

end;

TAVLTree

TObject