TreeViewTools (rund um Node.Text und Node-Path)

[Satty67]

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