var
 F: Text; //TextFile 和 Text 是一样的

成都创新互联公司企业建站,十年网站建设经验，专注于网站建设技术，精于网页设计，有多年建站和网站代运营经验，设计师为客户打造网络企业风格，提供周到的建站售前咨询和贴心的售后服务。对于成都做网站、成都网站建设、成都外贸网站建设中不同领域进行深入了解和探索，创新互联在网站建设中充分了解客户行业的需求，以灵动的思维在网页中充分展现，通过对客户行业精准市场调研，为客户提供的解决方案。

----------------------------------

   filename := ExtractFilePath(Application.ExeName) + '院感病历导入记录.txt';
   if FileExists(filename) then
   begin
     AssignFile(F,FileName);
     Append(F); //打开准备追加
     Writeln(F, datetostr(curdate) + '成功导入！');
     CloseFile(F);
   end
   else
   begin
     FileCreate(filename);
     AssignFile(F,FileName);
     Append(F); //打开准备追加
     Writeln(F, datetostr(curdate) + '成功导入！');
     CloseFile(F);
   end;

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

分享题目：delphi操作文件-创新互联
文章转载：http://cdweb.net/article/igjop.html