übergeordneten Gruppen eines Treeview

[marabu]

Hallo Hansi,

diese Funktion benutze ich um Pfadnamen von Baumknoten zu bilden. Vielleicht ist die auch was für dich:

Delphi-Quellcode:

function NodeText(node: TTreeNode; startLevel: integer; delimiter: char): string;
begin
  if not Assigned(node) then
    Result := ''
  else if node.Level > startLevel then
    Result := NodeText(node.Parent, startLevel, delimiter) + delimiter + node.Text
  else if node.Level = startLevel then
    Result := node.Text
  else
    Result := ''
end;

Grüße vom marabu