Von TStringList abgeleitete Klasse inkl. Objecten speichern

[idefix2]

Ein inherited in savetofile wäre sicher hilfreich

Wie das derzeit ohne Endlosschleife funktioniert, verteh ich nicht.
Sobald count >0 ist, ruft savetofile sich selbst doch rekursiv auf, ohne Abbruchbedingung für die Rekursion?
Vermutlich löst WriteComponent eine Exception aus, sonst müsste das Programm da abstürzen

edit - Blödsinn, in die with Falle gestolpert - solche Konstruktionen gehören veboten Mit dem with erreicht man in solchen Fällen wirklich nur, dass man den Code endlos studieren muss, um herauszufinden welche Variable da wo gewitht wird.
Aber ohne inherited wird es nicht gehen.