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