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

happyxiaowuge 2010-09-07 12:46:05

有一memo name为mmoLog，然后在项目文件中有log.txt 的文本文档

我点击保存按钮时运行如下代码

var filePath：string；

filePath:=ExtractFilePath(ParamStr(0))+'Log.txt';
mmoLog.Lines.SaveToFile(sFilePath);

但是每次保存都是重新保存，而不是在文档原来的内容的基础上追加...该怎么解决...

求代码

...全文

126 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

bdmh 2010-09-07

打赏
举报

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

猴子先生大宝贝 2010-09-07

打赏
举报

我这个还是有局限性，不过正常的日记是可以使用的。复杂的格式记录，还是老实点用前面几位的代码好了。呵呵。

Blessed_Chuan 2010-09-07

打赏
举报

[Quote=引用 4 楼 mysterx 的回复:]
没那么复杂。一句话搞定。

WinExec(PChar('cmd /k echo ' + Memo1.Lines.Text + ' >> "' + ExtractFilePath(ParamStr(0)) + 'log.txt"'), SW_HIDE);
[/Quote]
这个厉害

happyxiaowuge 2010-09-07

打赏
举报

都是NB 人物受教了..

猴子先生大宝贝 2010-09-07

打赏
举报

没那么复杂。一句话搞定。

WinExec(PChar('cmd /k echo ' + Memo1.Lines.Text + ' >> "' + ExtractFilePath(ParamStr(0)) + 'log.txt"'), SW_HIDE);

白耗子 2010-09-07

打赏
举报

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;