Delphi中AssignFile函数

Posted ximi07

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Delphi中AssignFile函数相关的知识,希望对你有一定的参考价值。

procedure TForm1.SaveLog(sFlag:string;MSG:string);
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‘;

if not FileExists(Qfiletmp) then
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函数的主要内容,如果未能解决你的问题,请参考以下文章

delphi乱码问题

Delphi 打印使用文件重写功能

delphi 读写文本文件(函数比较全)

DELPHI文件、磁盘操作函数

在Delphi中到底是如何操作HTML文件的啊,谁来讲解一下啊

delphi如何写文本文件