Delphi - база знаний


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


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




clip0035
{*--------------------------------------------- 
 Parent Text 
 ---------------------------------------------*}
 

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

{*--------------------------------------------- 
  Click an Item 
 ---------------------------------------------*}
 
procedure TForm1.TreeView1Click(Sender: TObject); 
var 
  sPath: string
begin 
  label1.Caption := SrNodeTree(TreeView1.Selected, sPath); 
end

Взято с сайта




Начало  Назад  Вперед



Книжный магазин