не могу разобратся с TreeView

[L11L]

Подскажите как сделать так, например:
-есть узел "Раздел 1" (при нажатии на этот узел в мемо выводиться много текста)
-"Раздел 2" (выводится другой текст) ну и т.д.
Как вот так привязать текст к дереву?

[Stilet]

А где сам текст хранится, который в Мемо выводится?

[L11L]

Сообщение от Stilet

А где сам текст хранится, который в Мемо выводится?

Находится в отдельных файлах. Ну может быть посоветуете какой то лучший способ.

[L11L]

Разобрался сам, спасибо

[Stilet]

Ссыль не помню на ту тему, но недавно рассказывал как я делаю.
У меня есть динамический список (на основе TObjetcList) обьектов, хранящих в своем поле имя файла. Так вот эти обьекты я присваиваю полю Data нужно ветке например:

TreeViewKS.Items.AddChildObject(node,a[i].FileName,a[i]);

Сдесь a - тот самый TObjetcList, a[i] обьект, который хранит имя файла
.FileName - после с именем файла.
Достаточно надежная схема, может быть сразу не понятная, но очень полезная.

[vovk]

к примеру можно

type  Filename_=  ^string;

при добавлении нода

var
 MyRecPtr: Filename_;
begin

     New(MyRecPtr);
     MyRecPtr^ :='путь и имя файла;
     TreeView1.Items.AddObject(nil,'node',MyRecPtr);
end;

на онченж по тривью

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
 Memo1.Lines.LoadFromFile(Filename_(Node.Data)^);
end;