谁来看看我的代码哪错了！

Question

一运行 就出现  is  not a valid integer value 不知道怎么回事
谁来帮我看看！procedure TForm1.Edit7Change(Sender: TObject);
begin
JSM.Locate('JSM',edit7.Text,[loPartialKey,loCaseInsensitive]);
end;procedure TForm1.DBGridEh2CellClick(Column: TColumnEh);
begin
        edit6.Text:=JSM['XFXM'];
        edit2.Text:=JSM['DW'];
        edit3.Text:=JSM['DJ'];
        edit5.Text:=formatdatetime('',now);
        edit7.Text:=JSM['JSM'];
        panel2.Visible:=false;end;procedure TForm1.Edit1Change(Sender: TObject);
  var a,b,c:integer;
begin
        a:=strtoint(edit1.Text);
        b:=Strtoint(edit3.Text);
        c:=a*b;
        edit4.Text:=inttostr(c);
end;

Answer 1

能把整个CODE发下，看看嘛？光你上面的看不出来啊

Answer 2

  var a,b,c:integer;
begin
  a:=strtoint(edit1.Text);
  b:=Strtoint(edit3.Text);
  c:=a*b;
  edit4.Text:=inttostr(c);
我试了 好像就是 这一段有问题  ， 好像 就是 数据类型 转换不了 ！

Answer 3

is not a valid integer value
看你前面的,是edit?.Text或是其它,你的输入数据不为数字,你将它转成int,就会报这个错
如果你要它不错,给它一个缺省值
如:
a:=strtointdef(edit1.Text,0);
当你的edit1.Text输入非数字时,它缺省为0,且不报错

Answer 4

把edit 的初始值都设置为0，就不会了。