Also die Variante:
Delphi-Quellcode:
function GetNodePath(aNode:TTreeNode; WithTailingDelimiter: Boolean): String;
begin
Result := '';
while Assigned(aNode) do begin
Result := aNode.Text + '\' + Result;
aNode := aNode.Parent;
end;
if not WithTailingDelimiter then Delete(Result, Length(Result), 1);
end;
gefällt mir am Besten (rein vom Verständnis).
"WithDelimiter" ändere ich auch in with "WithTailingDelimiter", weil es ja wirklich nur um den abschließenden '\' geht.
Noch bin ich guter Hoffnung, das da noch etwas Code aus meiner Schreibe übrig bleibt
