Hallo moperswings,
in einem anderen thread hattest du die Erkenntnis, dass du im Memo die Eigenschaft WantReturns ausschalten konntest um die unbenötigten Zeilentrenner los zu werden.
Um eine oder mehrere Textzeilen an eine Datei anzuhängen muss man nicht unbedingt die Zieldatei zuerst komplett in den Hauptspeicher laden - bei Log-Dateien mitunter gar nicht möglich. Es geht auch so:
Delphi-Quellcode:
procedure AppendToFile(s: TStrings; fn: TFileName);
var
i: Integer;
begin
with TFileStream.Create(fn, fmOpenWrite or fmShareDenyWrite) do
begin
Position := Size;
for i := 0 to Pred(s.Count) do
begin
WriteBuffer(s[i][1], Length(s[i]));
WriteBuffer(sLineBreak[1], Length(sLineBreak));
end;
Free;
end;
end;
Das lässt sich natürlich auch in einer abgeleiteten Klasse unterbringen - wer will.
Grüße vom marabu