在线等！！菜鸟一问：用什么函数使‘空’返回为零，就像foxpro的iif...

Question

程序如下：
procedure TRecForm.DBEdit13Exit(Sender: TObject);
begin
  Label40.Caption:='DBEdit13Exit';
  dbedit35.Text:= floattostr(strtoFloat(dbedit13.Text) + strtoFloat(dbedit14.Text));
end;
我设计工资系统‘录入工资数据窗体’时，想每修改一个工资项目（如‘级别工资’）后，‘应发工资合计’就刷新一次，这样就保证数据实时更新，但有时此项目可能为空，就报错。请问大虾：用什么函数使‘空’返回为零，就像foxpro的iif...

Answer 1

单存为了取得0，可以用length(字符串)试试。

Answer 2

修正上面
procedure TRecForm.DBEdit13Exit(Sender: TObject);
begin
  Label40.Caption:='DBEdit13Exit';
  dbedit35.Text:= FloatToStr(StrToFloatDef(dbedit13.Text, 0) + StrToFloat(dbedit14.Text, 0));
end;