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;

本文转自鹅倌51CTO博客，原文链接：http://blog.51cto.com/kaixinbuliao/1754260 ，如需转载请自行联系原作者