TextFile 类 追加记录日志文件 经常出现 I/O 103 错误

[sharebei]

主要代码

var
filename : string;
F:TextFile;

//.....some code

try
AssignFile(F,filename);
IF FileExists( FileName ) Then
Append(F)
Else
ReWrite(F);
WriteLn(F, logstr );
CloseFile(F);
except
CloseFile(F);
end;

操作系统安装了360,日志记录频率灰常高......
I/O 103 错误经常会出现,一出现程序就死那了.......

劳驾大大们帮忙指点下原因.......

[sharebei]

why?

[sharebei]

why.....?

[ADSLAN]

//----- 保存到txt
function TForm1.SaveToTxt(SaveFileName: string; SaveData: string): Boolean;
var
FN: TextFile;
begin
try
Result := False;
if SaveData = '' then Exit;

if not Fileexists(SaveFileName) then
begin
AssignFile(FN, SaveFileName);
Rewrite(FN);
CloseFile(FN);
end;

AssignFile(FN, SaveFileName);
Append(FN);
Writeln(FN, SaveData);
Result:= True;
CloseFile(FN);
except
Result:= False;
end;
end;

自己用的 LZ可以参考下

[sharebei]

好的,,,,3Q

[diecode]

把360卸了看看

[haitao]

用api的fileopen还是openfile加打开模式，比较稳定些