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;
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
