Delphi中AssignFile函数
2021-03-21 14:25
标签：操作 pen write The ledir rect 声明 文本文件 函数 procedure TForm1.SaveLog(sFlag:string;MSG:string); if not FileExists(Qfiletmp) then Delphi中AssignFile函数 标签：操作 pen write The ledir rect 声明 文本文件 函数 原文地址：https://www.cnblogs.com/ximi07/p/11811219.html
var
QF1:Textfile; ----声明文本文件类型
Qfiletmp,sPath:string;
begin
try
sPath :=ExtractFileDir(ParamStr(0))+‘\Sajet_Log\‘;
if not directoryExists(sPath) then
begin
forcedirectories(sPath);
end;
Qfiletmp:=sPath+formatdatetime(‘yyyy_mm_dd‘,now)+‘.LOG‘;
begin
assignfile(QF1,Qfiletmp); ----将Qfiletmp文件与变量QF1建立连接，后面可以使用F变量对文件进行操作。
rewrite(QF1); ----//Rewrite 过程能创建一个新文件并打开它；使用Reset 打开的文本文件是只读的，使用Rewrite 和Append 打开的文本文件只能写入
closeFile(QF1); ----关闭文件
end;
AssignFile(QF1,Qfiletmp);
append(QF1);
if sFlag =‘NG‘ then
writeln(QF1,formatdatetime(‘yyyy-mm-dd hh:mm:ss‘,now)+‘[ Error ]‘+MSG)
else
writeln(QF1,formatdatetime(‘yyyy-mm-dd hh:mm:ss‘,now)+‘[ ]‘+MSG);
closeFile(QF1);
except
end;
end;
文章标题：Delphi中AssignFile函数
文章链接：http://soscw.com/index.php/essay/67213.html