Деревья в Delphi

[Алексей777911]

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Trees;

type
  TForm1 = class(TForm)
    Button1: TButton;
    TreeView1: TTreeView;
    procedure Button1Click(Sender: TObject);
  private
    procedure AddChildren(Root: TNode; VisualRoot: TTreeNode);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Root: TNode;
begin
  try
    try
      Root := CreateDemoTree;

      AddChildren(Root, nil);

    except
      on E: EAccessViolation do
        begin
          ShowMessage( E.Message );
        end;
      on E: Exception do
        begin
          ShowMessage( E.Message );
        end;
    end;
  finally
    //  Удаление дерева из памяти
    Root.Free;
  end;
end;

procedure TForm1.AddChildren(Root: TNode; VisualRoot: TTreeNode);
var
  T: TNode;
  Node, Child: TTreeNode;
  I: Integer;
begin
  //  Работа с деревом
  Node := TreeView1.Items.AddChild(VisualRoot, Root.StringPayload);
  for I := 0 to Root.Children.Count - 1 do
  begin
     T := Root.Children[I] as TNode;
     Child := TreeView1.Items.AddChild(Node, T.StringPayload);
     AddChildren(T, Child);
  end;
end;

end.

---------------------------------------------

Задание

1) Исправить метод AddChildren, чтобы он работал правильно. 2)Найти в дереве узел по заданному значению StringPayLoad и вывести путь к этому узлу в формате /корень/child1/child2/.../строка

[-kv-]

о да... ))