哪位高手来看看小弟我的代码哪错了

谁来看看我的代码哪错了！
一运行 就出现 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;

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



[解决办法]
把edit 的初始值都设置为0，就不会了。