Question

DELPHI 中 如何把MEMO中的内容存入已经存在的文件尾部？

而不是替换掉原有的文件

SaveToFile('c:\1212.txt');

我想存在1212.txt 文件内容的尾部，也就是有点增量的意思。但不是替换

Answer 1

定义临时变量
var Tmp_str:TstringList;

建立临时变量
Tmp_str:=TstringList.create;

先读取原有文件的内容
Tmp_str.loadfromfile('c:\1212.txt');

再追加内容
Tmp_str.addstring(memo1.line);

写文件
Tmp_str.savetofile('c:\1212.txt');

释放临时变量
Tmp_str.free;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
i: Integer;
begin
AssignFile(F,'c:\1212.txt');
Append(F);
Writeln(F,#13);//如果需要新起一行的话，加上这个
for i:= 0 to Memo1.Lines.Count -1 do
begin
Writeln(F,memo1.lines[i]);
end;
CloseFile(F);
end;