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;

本文出自 “一切有为法，如梦幻泡影” 博客，请务必保留此出处http://kaixinbuliao.blog.51cto.com/2567365/1754260

delphi 操作文件

原文：http://kaixinbuliao.blog.51cto.com/2567365/1754260