delphi 操作文件
导读：本文共468.5字符，通常情况下阅读需要2分钟。同时您也可以点击右侧朗读，来听本文内容。按键盘←（左） →（右） 方向键可以翻页。
摘要： var F: Text; //TextFile 和 Text 是一样的---------------------------------- filename := ExtractFilePath(Application.ExeName) + '院感病历导入记录.txt'; if FileExists(filename) then begin AssignFile... ...
音频解说
目录
(为您整理了一些要点),点击可以直达。
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;
本文：
delphi 操作文件的详细内容，希望对您有所帮助，信息来源于网络。