Цитата(DYUMON @ 17.4.2014, 12:36  ) | | и сам несколько раз вариантов писал. все не то |
Теоретически, было бы неплохо хоть один вариант выложить сюда.
Если я правильно понял задачу, то она сводится к выводу текста нода и всех его предков, если у нода нет детей:
| Код |
procedure TForm1.btn1Click(Sender: TObject);
procedure AddText(Node: TTreeNode);
var
s: string;
begin
s:=Node.Text;
Node:=Node.Parent;
while Assigned(Node) do
begin
s:=Node.Text+#13#10+s;
Node:=Node.Parent;
end;
mmo1.Lines.Add(s);
end;
var
Node: TTreeNode;
begin
Node:=tv1.Items.GetFirstNode;
while Assigned(Node) do
begin
if Node.Count = 0 then
begin
AddText(Node);
mmo1.Lines.Add('');
end;
Node:=Node.GetNext;
end;
end;
|
|