Funktion erweitern

[himitsu]

Entweder su speicherst dir den kompletten Pfad in den Node.Data

oder du setzt dir den Pfad zusammen.
in etwa so:

Delphi-Quellcode:

Dateipfad := ''; 
Node := TreeView1.Selected;
while Assigned(Node) do
begin
  Dateipfad := Node.Text + '\' + Dateipfad;
  Node := Node.Parent;
end;
Dateipfad := IncludeTrailingPathDelimiter(Hauptpfad)
  + ExcludeTrailingPathDelimiter(Dateipfad);