Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];

Вниз

Tree Walker: Create   Найти похожие ветки 

← →
Дмитрий Баранов   (2002-04-19 18:24) [10]

На коленках - рекурсия.

procedure Recurse(const Node: TTreeNode);
var i: integer;
begin
ShowMessage(Node.Text);
if not Node.HasChildren then exit
else
begin
for i:=0 to Node.Count-1 do
begin
Recurse(Node.Item[i]);
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Node: TTreeNode;
begin
Node:=TreeView1.Items[0];
Recurse(Node);
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c