哪里出錯？？ I/O error 6 問題 (Delphi)

frankyhui

procedure TForm1.FormCreate(Sender: TObject);
var
S: string;
i: integer;

begin
for i := 0 to 100 do

begin
ReadLn(S);
if S = '' then Break;
WriteLn('This is not an empty string: ' + S);

end;
end;

end.

==================================
  为什麼会显示 I/O error 6??

cb_reptile

強的很，竟然有這樣的文章

我不是傻鴨

誰都不容易啊 ~~