Поиск и путь к узлу

Code:

{ **** UBPFD *********** by delphibase.endimus.com ****

>> Получение пути заголовков к узлу в TreeView

Функция выдает путь к указанному узлу (к ноде) в TreeView

в виде строки заголовков узлов, разделенных символом Separator.

Зависимости: ComCtrls

Автор:       lipskiy, Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра., ICQ:51219290, Санкт-Петербург

Copyright:   Собственное написание (lipskiy)

Дата:        02 мая 2002 г.

***************************************************** }

function GetPathToNode(Node: TTreeNode; Separator: Char): string;

begin

Result := '';

if Node = nil then

   exit;

while Node <> nil do

begin

   Result := Node.Text + Separator + Result;

   Node := Node.Parent;

end;

Delete(Result, length(Result), 1);

end;