两个整型想减的问题

Question

我想让两个整型想减，然后相减的值反冲到dbedit3中，程序代码如下：（但是程序运行时会报错，提示“exe raisede exception class EConverterError with message ''' is not a valid integer value”）请各位大虾帮帮新手，谢谢谢谢！var
  i1,i2:integer;begin adotable1.Edit;
  i1:=strtoint(dbedit3.Text);
  i2:=strtoint(edit1.Text);
  dbedit3.Text:=inttostr(i1-i2);  if i1-i2>=0 then
   begin
    adotable1.Post;
    edit1.Text:='';
    showmessage('配件出库成功');
    adotable2.Edit;
    adotable3.Edit;
   ADOTable2.InsertRecord([dbedit1.text,dbedit2.Text,maskedit1.Text,dblookupcombobox1.text,
       strtoint(edit1.text),edit2.text]);
   ADOTable3.InsertRecord([dbedit1.text,dbedit2.Text,maskedit1.Text,dblookupcombobox1.text,
       strtoint(edit1.text),edit2.text]);
    end
     else
      begin
       showmessage('对不起，库存数不够！请减少出库数量！');
    end;

Answer 1

检查你使用strtoint(...)的地方,一定是传入的某个字符串不是数字,或者是个空串之类的情况,就会报出这样的错误.比如:
strtoint('');
strtoint('abcdefg');
这些都不行!

Answer 2

edit1.Text:=''; //这里已经为空字符串了，后边转换时当然报错
showmessage('配件出库成功');