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;