一直在writeln这一行,显示I/O error 105,为什么?

                            
我在一份资料里看到如下代码   
  i   :=   0;  
  repeat  
  i   :=   i+1;  
  Writeln(i);  
  until   i=10;   
  我放到如下过程中  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var   i:integer;  
  begin  
  i   :=   0;  
  repeat  
  i   :=   i+1;  
  Writeln(i);     //一直在writeln这一行,显示I/O   error   105,为什么?  
  until   i=10;   
   
  end;

查看回复