TreeView:einträge selbst speichern

[marabu]

Hallo Michael,

zum Speichern kannst du folgende Funktionen verwenden. Ich bevorzuge das zweite Format.

Delphi-Quellcode:

// Format: knoten\unterknoten
function TreeNodePath(node: TTreeNode; delimiter: char): string;
begin
  if Assigned(node) then
  begin
    Result := TreeNodePath(node.Parent, delimiter);
    if Result <> '' then
      Result := Result + delimiter;
    Result := Result + node.Text;
  end
  else Result := '';
end;

// Format: \knoten\unterknoten
function TreeNodePath(node: TTreeNode; delimiter: char): string;
begin
  if Assigned(node)
    then Result := TreeNodePath(node.Parent, delimiter) + delimiter + node.Text
    else Result := '';
end;

marabu