E/A beim Textspeichern

[moperswings]

Wie es aussieht, fange ich mit dieser Lösung - bis jetzt - jeden Fall auf:

Delphi-Quellcode:

Memo1.Lines.Add('</p>');
Writeln(f, Memo1.Text);
closefile(f);

Memo1.Lines.LoadFromFile('d:\editor2\daten.html');
Memo1.Text := StringReplace(Memo1.Text, '

' + #13#10 + '</p>', '', [rfreplaceall]);
Memo1.Text := StringReplace(Memo1.Text, #13#10, '', [rfreplaceall]);
Memo1.Text := StringReplace(Memo1.Text, '

</p>', '', [rfreplaceall]);
umbruch := '</p>' + #13#10 + '

';
Memo1.Text := AnsiReplaceText(Memo1.Text, '</p>

', umbruch);
Memo1.Lines.SaveToFile('d:\editor2\daten.html');

Tschüss, moperswings