delphi 操作文件

2016-08-22 10:24:07来源:http://kaixinbuliao.blog.51cto.com/2567365/1754260作者:鹅倌人点击


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;


最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台