Delphi-Help

Главная Статьи Дерево (TreeView) Как получить строковый путь в TTreeView?

Как получить строковый путь в TTreeView?

Оцените материал
(0 голосов)


Как получить строковый путь в TTreeView?

Способ первый

function SrNodeTree( pTreeNode: TTreeNode; var sRuta: string ): string;
begin
   sRuta := pTreeNode.Text + ' > ' + sRuta;
   if pTreeNode.Level = 0 then
      Result := sRuta
   else
      Result := SrNodeTree( pTreeNode.Parent, sRuta );
end;
 
procedure TForm1.TreeView1Click(Sender: TObject);
var
  sPath: string;
begin
   Caption := SrNodeTree( TreeView1.Selected, sPath );
end;

Способ второй

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;
 
procedure TForm1.TreeView1Click(Sender: TObject);
begin
   Caption := GetPathToNode( TreeView1.Selected, '>' );
end;

Авторизация



Счетчики