TMultiTree

type TMultiTree = class(TObject)

protected

  FRoot: TMultiNode;

  FCount: Integer;

  FCurrentNode: TMultiNode;

  FSepChar: AnsiChar;

  FIDCount: Integer;

  procedure VisitSubNodesPost();

  procedure VisitSubNodesPre();

  procedure VisitNode();

  procedure ParseDirStr();

  procedure PopulateSubNodes();

  procedure TraversePost();

  procedure TraversePre();

public

  constructor Create;

  destructor Destroy; override;

  function Insert();

  function GetNode();

  function DeleteNode();

  procedure ChangeDir();

  function PopulateTreeView();

  property Root: TMultiNode; [r]

  property Count: Integer; [r]

  property CurrentNode: TMultiNode; [r]

  property SepChar: AnsiChar; [rw]

end;

TMultiTree

TObject