菜鸟又提问了:这三行最简单的程序有什么毛病嘛？真他妈见鬼

Question

真是奇怪，
我也是Win98+D5，怎么没出错？在查查！

Answer 1

把Blank.txt删除，重新建一个试试。

Answer 2

我用没有错啊，错肯定不在这段语句！unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    procedure MakeBlankFile;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.MakeBlankFile;
var
  tf:TextFile;
begin
  AssignFile(tf,'Blank.txt');
  try
    ReWrite(tf);
    WriteLn(tf,'这是空文件.');//出错时停在这一行上
  finally
    CloseFile(tf);
  end;
end;procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  MakeBlankFile;
end;end.
运行完全正常

Answer 3

把WriteLn(tf,'这是空文件.');改为Write(tf,'这是空文件.');

Answer 4

我的主窗口在建立时有一段：
{$I-}
Mkdir(ExtractFilePath(Application.ExeName)+'\data');
{$I+}后来我改成:
{$I-}
Mkdir(ExtractFilePath(Application.ExeName)+'\data');
IOResult;
{$I+}就行了。原来是我用{$I-}把Mkdir时产生的异常保留了下来，结果下次再做IO操作时就张冠李戴了。水平真臭啊！谢谢楼上几位兄台的关注，十分感谢！
小弟一定勤学苦练，争取少问这类菜鸟的问题啦，对不起大家。