窗体里分别有一个button控件,memo控件和一个f1book(ActiveX页的),程序运行时在f1book里手动输入数据,然后点击按钮,数据显示在memo里,程序错误在程序里标志出。各位高手帮我看看,有礼拉!
procedure TForm1.Button1Click(Sender: TObject);
var
   i :integer;
   a :array[0..10] of integer;
begin
   for i :=0 to f1book1.MaxCol-1 do
   begin
      a[i] :=strtoint(f1book1.TextRC[0,i]);       //这行出错,why?????????????
      memo1.Lines.Add(inttostr(a[i]));
   end;
end;
end.

解决方案 »

  1.   

    begin
          a[i] :=strtointdef(f1book1.TextRC[0,i], 0);      OK!
          memo1.Lines.Add(inttostr(a[i]));
       end;
      

  2.   

    其实问题很简单
    因为flbook的第一个单元格是(1,1)
    所以你这样写就可以了
     a[i] :=strtoint(f1book1.TextRC[1,i+1]);
      

  3.   


     f1book1.MaxCol =10  for i :=1 to f1book1.MaxCol do
       begin
          a[i-1] :=strtoint(f1book1.TextRC[1,i]);     
          memo1.Lines.Add(inttostr(a[i]));
       end;
      

  4.   

    运行时输入数据,点击按钮后出现这样的错误:project1.exe raised exception class 
     EconvertError with message'''is not a valid integer value.'process stopped. use step or run to continue。怎么回事阿?