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);