troble ttreeview

← →
pet (2003-05-06 11:22) [0]

У меня такая проблема, не могу заполнить Ttreeview. Структура вроде-бы простая, но че-то никак!
Вот, посмотрите:
-val1
-val2
-dir1
-file1
-file1
-file1
-dir2
-file2
-file2
-file2
Всего две подветки, а никак! Помогите, если можно, то с примером.

← →
pasha_golub (2003-05-06 11:33) [1]

Посмотри как в TreeView реализован метод SaveToFile / LoadFromFile, или файл посмотри, а потом приведи свои данные к такому виду и используй стандартные методы

ЗЫ
файл примерно такой
val1
val2
dir1
file1
file2
file3
dir2
file2
etc.

Отступы сделаны табуляцией #8

← →
Jack128 (2003-05-06 12:48) [2]

with TreeView1.Items do
begin
AddChild(nil,"val1");
AddChild(nil,"val2");
Node := AddChild(nil,"dir1");
AddChild(Node,"file1");
AddChild(Node,"file1");
AddChild(Node,"file1");
Node := AddChild(nil,"dir2");
AddChild(Node,"file2");
AddChild(Node,"file2");
AddChild(Node,"file2");
end;
Если узлов много, то в цикле...

troble ttreeview Найти похожие ветки