Delphi schreibt garantiert nicht einfach so von sich aus irgendwelche Zeilenumbrüche (abgesehn von dem Einen im WriteLn, welches man dann aber selber so will)
Wie sieht TextLaden aus?
Zitat:
Delphi-Quellcode:
for i := 0 to memo1.Lines.Count do
WriteLn(f,memo1.Lines[i]);
Sicher daß daß so funktioniert?
0 bis Count ist eine Zeile zuviel und dort sollte sich die StringListe des Memos doch eigentlich beschweren
(0 to Count - 1)
Zitat:
Delphi-Quellcode:
{$I-}
Rewrite(f);
{$I+}
if IOResult<>0 then showmessage('Fehler beim Speichern.');
...
Wenn die Datei nicht geöffnet werden konnte, zeigst du eine Message an.
Soweit ist es ja OK, aber dann wird dennoch versucht die Schreibfunktionen auszuführen, was auch nicht gut Enden wird.