var s, newItem: string;
p: integer;
lastNode: TTreeNode;
begin
s := 'Item1|Subitem11|Subitem111';
lastNode := nil;
while length(s) > 0 do
begin
p := pos('|', s);
if p > 0 then
begin
newItem := copy(s, 1, p - 1);
delete(s, 1, p);
end
else
begin
newItem := s;
s := '';
end;
lastNode := TreeView1.Items.AddChild(lastNode, newItem);
end;
end;
работа с treeview
Всем привет!
Я уже измучился в поисках инфы!!!
Подскажите как мне загрузить файл в treeview
Файл имеет структуру:
База данных|Работа с Access|файл.txt|
Теперь как должно выглядеть в treeview, например:
-База данных
- Работа с Access (само название не должно отображаться в списке)
P.S. сам файл должен при нажатии отображаться в richedit
Я уже измучился в поисках инфы!!!
Подскажите как мне загрузить файл в treeview
Файл имеет структуру:
База данных|Работа с Access|файл.txt|
Теперь как должно выглядеть в treeview, например:
-База данных
- Работа с Access (само название не должно отображаться в списке)
P.S. сам файл должен при нажатии отображаться в richedit
Да в принципе просто.
Распарсить файл и добавить элементы в TreeView.
Где-то так
Распарсить файл и добавить элементы в TreeView.
Где-то так
Код: