一个关于.txt文件，帮帮忙！！！1

Question

创建了一个程序，用进程接收邮件，在接受的时候，使用一变量记录主题，发件人，收件人等信息，我想从里面提检出发件人的地址存到一个.txt文件中，首先判断.txt文件是否存在若存在就追加，若不存在就创建，应该怎样做呀？跪求！！！！

Answer 1

检查文件是否存在
FileExists('c:\dd.txt')
创建.txt文件var
  SList : Tstrings;begin
  SList := Tstringlist.create;
  slist.add('');
  …………
  slist.savetofile('c:\dd.txt')
end;

Answer 2

楼上的
人家要文件存在时添加楼主查一下一下几个函数的用法就知道了：assignfile,append,rewrite,writeln,closefile

Answer 3

assignfile
if fileexists then append else rewrite

Answer 4

procedure  AddText(const Afilename,AddText:String);
var
   ttlist:Tstringlist;
begin
   ttlist;=Tstringlist.create;
   try
     if fileExists(Afilename) then
        begin
           ttlist.loadfromfile(Afilename);
           ttlist.add(Atext);
        end else
           ttlist.text:=Atext;
     ttlist.Savetofile(Afilename);
   finally
     ttlist.free;
   end;
     
end;

Answer 5

不用判断文件是否存在,直接写TXT就可以了(有就覆盖,没有就创建)

Answer 6

创建.txt文件var
  SList : Tstrings;begin
  SList := Tstringlist.create;
  slist.add('');
  …………
  slist.savetofile('c:\dd.txt');
end;

Answer 7

assignfile
try
  append
except
  rewrite
end;