TMultiNode

type TMultiNode = class(TObject)

protected

  FParent: Pointer;

  FKey: AnsiString;

  FChildren: TStringList;

  FData: TObject;

  function GetChildCount;

public

  constructor Create();

  destructor Destroy; override;

  function AddChild();

  procedure DeleteChild();

  function DeleteChildByName();

  function DeleteChildren;

  function GetChild();

  function GetChildByName();

  function HasParent;

  function HasChildren;

  function Contains();

  property Parent: Pointer; [rw]

  property ChildCount: Integer; [r]

  property Children []: TMultiNode; [r]

  property Data: TObject; [rw]

  property Key: AnsiString; [rw]

end;

TMultiNode

TObject