Tree mit Knotenpunkten-Auslesen

[Alaitoc]

Delphi-Quellcode:

var
  sPath: String;
  tempNode: TTreeNode;
begin
  sPath := '';
  tempNode := TTreeview1.SelectedNode;
  repeat
    if assigned( tempNode.Parent ) then
    begin
       sPath := sPath + tempNode.Text;
       tempNode := tempNode.Parent;
    end
    else
    begin
      sPath := sPath + tempNode.Text;
      tempNode := nil;
    end;
  until tempNode = nil;
end;

Das wär mal so nen PseudoCode-Ansatz der in etwa funktionieren sollte glaubich

MfG Alaitoc