文本文件出现I/O ERROR 105(10分)

procedure WriteL(Mystring:String;Mybool:BOOLEAN);
var F:TextFile;
begin
if fileexists(ExtractFilePath(ParamStr(0))+'history.log') then
begin
AssignFile(F,ExtractFilePath(ParamStr(0))+'history.log');
Reset(F);
if Mybool=true then
begin
Writeln('['+DatetimetoStr(Now)+']');
end
else
begin
WriteLn(F,Pchar('['+DatetimetoStr(Now)+']'));
end;
CloseFile(f);
end;
end;

这里Writeln('['+DatetimetoStr(Now)+']');和这里WriteLn(F,Pchar('['+DatetimetoStr(Now)+']'));
为何不同前面少了一个F吧！

输出文件未打开，由write和writeln 报告有关文本文件没有用console应用程序生成

Reset(F);？？？只读！
用Rewrite（F)

在assignfile之前加：
{$I-}
在closefile之后加：
{$I+}

接受答案了.