从StringGrid中取数据，用QuickReport控件做报表出现了奇怪的问题！各位帮忙看看是怎么回事！

Question

var
  i: Integer; //全局变量procedure TForm1.QuickRep1BeforePrint(Sender: TQuickRep;
  var PrintReport: Boolean);
begin
  i:= 0;
end;procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
  MoreData:= (i<25);  //i的限制如果大于一定的数就会出问题
  if MoreData then
  begin
    col1Label.Caption:= IntToStr(i*1);
    col2Label.Caption:= IntToStr(i*2);
    col3Label.Caption:= IntToStr(i*3);
    col4Label.Caption:= IntToStr(i*4);
    col5Label.Caption:= IntToStr(i*5);
    col6Label.Caption:= IntToStr(i*6);
    col7Label.Caption:= IntToStr(i*7);
    col8Label.Caption:= IntToStr(i*8);
    col9Label.Caption:= IntToStr(i*9);
    col10Label.Caption:= IntToStr(i*10);
    Inc(i);
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  QuickRep1.Preview;
end;出错提示是：“Cannot create file”。如果只赋一个值的话
col1Label.Caption:= IntToStr(i*1);
那么它可显示的上限就可以加大。大家帮看一下是什么问题。怎样可以解决这个问题。

Answer 1

如果赋值的条数不同，允许显示条数的范围也不同。
强调这是在Delphi 3下运行的