将memo 中的文字保存到txt文档中

Question

有一memo name为mmoLog， 然后在项目文件中有log.txt 的文本文档我点击保存按钮时 运行如下代码var filePath：string；filePath:=ExtractFilePath(ParamStr(0))+'Log.txt';
mmoLog.Lines.SaveToFile(sFilePath);但是每次保存都是重新保存，而不是在文档原来的内容的基础上追加...该怎么解决...求代码

Answer 1

向追加，就不要这么存了，用写文本文件的方式
http://blog.csdn.net/bdmh/archive/2009/05/04/4147077.aspx

Answer 2

新建一个StringList载入一下那个Log文件
然后把Memo的内容合并下！
然后再SavetoFile
呵呵！

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  TempList:TStringList;
begin
  TempList:=TStringList.Create;
  TempList.LoadFromFile('Log.txt');
  TempList.AddStrings(mmoLog.Lines);
  TempList.SaveToFile('log.txt');
  TempList.Free;
end;

Answer 4

没那么复杂。一句话搞定。WinExec(PChar('cmd /k echo ' + Memo1.Lines.Text + ' >> "' + ExtractFilePath(ParamStr(0)) + 'log.txt"'), SW_HIDE);