delphi操作文件-创新互联

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://pwwzsj.com/article/igjop.html