TplTree

type TplTree = class(TplContainer)

protected

  trRoot: TplTreeNode;

  trIgnoreDups: Boolean;

  procedure ForEachPointer(); override;

  function StoresPointers; override;

  procedure trInsertNode();

public

  constructor Create(); virtual;

  procedure LoadFromStream(); override;

  procedure StoreToStream(); override;

  procedure Clear; override;

  function Insert();

  procedure Delete();

  function Find();

  procedure Assign(); override;

  procedure Join();

  function Split();

  function Iterate();

  function First;

  function Last;

  function Next();

  function Prev();

end;

TplTree

TplContainer

TObject