我通过form1.Memo1.Lines.SaveToFile(application.GetNamePath+'dataDB.txt')....进来看看,谢谢!!

Question

我通过form1.Memo1.Lines.SaveToFile(application.GetNamePath+'dataDB.txt')将Memo1里的数据保存到dataDB.txt文件中,可我第二次再保存数据时就将第一次的数据给覆盖了,有没办法不要覆盖而是追加到第一次的后面.(各位大哥帮小弟想想办法多谢了!!!!)

Answer 1

//参考下面的例子
procedure TForm1.Button1Click(Sender: TObject);
var
 mytxt:tstringlist;
begin
 mytxt:=tstringlist.Create();
 if FileExists('d:\xhh.txt') then
 mytxt.LoadFromFile('d:\xhh.txt');
 mytxt.AddStrings(memo1.lines);
 mytxt.SaveToFile('d:\xhh.txt');
 mytxt.Free;
end;

Answer 2

var
  f : textfile;   if FileExists(application.GetNamePath+'dataDB.txt') then
  begin
    assignfile(f,application.GetNamePath+'dataDB.txt'); 
    Append(f);
    Writeln(f,s);
    CloseFile(f);
  end else
  begin
    form1.Memo1.Lines.SaveToFile(application.GetNamePath+'dataDB.txt');
  end;