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

[RWarnecke]

Deine Funktion GetNodePath kann man auch so schreiben :

Delphi-Quellcode:

function TreeNodePath(node: TTreeNode; delimiter: Char = PathDelim): string;
begin
  if Assigned(node) then
    Result := TreeNodePath(node.Parent, delimiter) + delimiter + node.Text
  else
    Result := '';
end;