窗体里分别有一个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.
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.
a[i] :=strtointdef(f1book1.TextRC[0,i], 0); OK!
memo1.Lines.Add(inttostr(a[i]));
end;
因为flbook的第一个单元格是(1,1)
所以你这样写就可以了
a[i] :=strtoint(f1book1.TextRC[1,i+1]);
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;
EconvertError with message'''is not a valid integer value.'process stopped. use step or run to continue。怎么回事阿?