[Kugen]

Здрасте!
Хочу спросить знающий народ, можно ли вывести путь по которому я шел до узла\потомка в эдит?

[Kugen]

Нашлась такая проблемка. Есть компонент TreeView, в нем есть дерево, мне нужно вывести путь(как с строке состояния в Windows(C:\Program Files\Borland\Delphi5\Projects)) до узла\потомка на котором я нахожусь.

какие нафиг 10 символов?)

[dr. F.I.N.]

Код:

function TreePath(Item: TTreeNode): String;
begin
  Result := '';
  if Item = nil then Exit;
  Result := Result + Item.Text;
  if Item.Parent = nil then Exit;
  Result := TreePath(Item.Parent) + '\' + Result;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := TreePath(TreeView1.Selected);
end;

2 минуты