TreeView in Memo abbilden!

[shmia]

Ersetze doch noch den Parameter Memo:TMemo durch Lines:TStrings.
Durch diese Verallgemeinerung kann man z.B. Folgendes tun:

Delphi-Quellcode:

var
  liste : TStrings;
begin
  liste := TStringList.Create;
  try
    ForceTreeToMemo(TreeView1, liste, 5);
    liste.SaveToFile(dateiname_treeview);  // Speichern ohne Umweg über TMemo
  finally
    liste.Free;
  end;
end;

Wenn man ein TreeView in ein Memo abbilden möchte, dann wäre der Aufruf:
ForceTreeToMemo(TreeView1, Memo1.Lines, 3);