memo1.lines ans ende einer txt file..

[Noreux]

Hallo,

mit memo1.lines.SaveToFile('file.txt') speichert man ja den Inhalt des memo feldes in die entsprechende Textdatei. Leider wird dabei der vorhandene Inhalt der file.txt überschrieben. Gibt es eine Möglichkeit, dass der Inhalt der memo1.lines einfach unten an die txt file angehängt wird?
thx!
NoreuX

[Felix Kaiser]

procedure AppendStrings(FileName: string; Lines: TStrings);
var
t: textfile;
i: integer;
begin
AssignFile(t,FileName);
Append(t);
for i:= 1 to Lines.Count do Writeln(t,Lines[i-1]);
CloseFile(t);
end;

Aufruf:
AppendStrings('Beispiel.txt',Memo1.Lines);

:cool: