Funktion erweitern

[Teekeks]

Ungefähr so:

Delphi-Quellcode:

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

[Muellermilchtrinker]

das funktioniert leider nicht. das programm hängt sich dort auf

[Teekeks]

Ahh, Tatsache, mach es ohne das begin end;
Also so:

Delphi-Quellcode:

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

[Muellermilchtrinker]

Jetzt funktioniert alles. Nun kann ich mein Programm erweitern.

[himitsu]

oder die IF-Abfrage direkt in das While integriert:

Delphi-Quellcode:

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