TStringToPointerTree

type TStringToPointerTree = class(TCustomStringMap)

protected

  procedure DisposeItem(); override;

  function ItemsAreEqual(); override;

  function CreateCopy(); override;

public

  procedure Assign(); override;

  procedure AddTree(); overload;

  function GetData();

  function GetNodeData();

  function GetEnumerator;

  property FreeValues: Boolean; [rw]

  property Values []: Pointer; default; [rw]

end;

TStringToPointerTree

TCustomStringMap

TObject