NodeMemManager¶

var
  NodeMemManager: type

  TAVLTreeNodeMemManager = class(TBaseAVLTreeNodeManager)
  public
    procedure DisposeNode(ANode: TAVLTreeNode);  override;
    function NewNode : TAVLTreeNode;  override;
    property MinimumFreeNode: SizeInt read FMinFree write SetMinFree;
    property MaximumFreeNodeRatio: SizeInt read FMaxFreeRatio write SetMaxFreeRatio;
    property Count: SizeInt read FCount;
    procedure Clear;
    constructor Create;
    destructor Destroy;  override;
  end;