送分小问题，不过比较急：由Tmemo向外，连续写txt的问题。此帖将速结

Question

我用delphi时间不长
对于控制文件读写方面没什么研究，帮助看了些不过暂时没有找到相应的功能（不过肯定是应该有的），望大家指教问题很简单
我想把Tmemo中的lines的内容写到外部的一个txt里，当然Tstrings的savetofile我是会用的，不过那样的话有两个问题。
假设有一个主form内含有 一个Tmemo(myMemo) 和一个提交保存的button(saveBtn)，有一个指定文件名（含路径）的string(FileNameStr) if (not FileExists(FileNameStr) )then
  myMemo.Lines.SaveToFile(FileNameStr);
 end
 else
 begin
  //myMemo.Lines的内容继续追加在FileNameStr的文件中
  //就是这个追加   写文件我不太知道应该用什么来完成
  //append也看了些，不过可能是还不够仔细把，没看到可以完成我的需求的函数 
 end;------------------------------------
望大家指教，此帖速结

Answer 1

给你一个函数,写好了.
procedure WriteData(sData: String);
var
  NetFile: TextFile;
  FileName: String;
begin
  FileName :='d:\aa.txt';//文件名称
  AssignFile(NetFile, FileName); //关联
  if FileExists(FileName) then
    Append(NetFile)
  else
    ReWrite(NetFile);
  Writeln(NetFile,sData);  //sdata就是你要写入的内容.
  CloseFile(NetFile);
end;

Answer 2

var
  F:TextFile;
begin
  AssignFile(F,'c:\hds.txt');
  Append(F);
  WriteLn(F,memo1.text);
  CloseFile(F);
end;

Answer 3

if (not FileExists(FileNameStr) )then
  myMemo.Lines.SaveToFile(FileNameStr);
第一句就觉得不对劲：没有文件存在的时候才载入吗？那你载入什么呢？

Answer 4

追加可以有多种方法，一种是对文件读写，就是用AssignFile和Append，然后writeln，就像2楼写的
再一种是先读到tstrings里，你不是会用么？不知道你说的两个问题是什么，如果有问题，那说明你还是不会用
如果文件不是很大，用stringlist也可以啊，先用loadfromfile，然后add要追加的内容，最后savetofile
最基本、最正宗的解法是2楼的方法