送分题，来者有分！

Question

FieldByName('Pine_num').Value:=strtoint(Pine_num.Text);像这样，如果我留空pine_num.text的话，将会出错，因为不能将null转为int.如何设置当我不输入这个dbedit时，就自动是'0'呢。

Answer 1

Try
  FieldByName('Pine_num').Value:=strtoint(Pine_num.Text);
Except
  FieldByName('Pine_num').Value:=0;
End;

Answer 2

if trim(Pine_Num.Text) <> '' then
   FieldByName('Pine_Num').AsInteger := strToInt(Pine_Num.Text)
else   FieldByName('Pine_Num').AsInteger := 0;

Answer 3

IF KEY=#0 THEN Pine_num.Text:='0';

Answer 4

if trim(Pine_Num.Text) = '' then vvv:= 0 else vvv:= strtoint(pine_num.text);FieldByName('Pine_Num').AsInteger := vvv;

Answer 5

Drate(鸟窝里的虫)的方法比较好，
 li_zhifu(东北人) 的方法如果在用户输入不是数字是也为0
 HHBB() 的方法当用户输入在删除时会出错。妄加评论，勿怪