Delphi空值转换

Question

with qry1 do
begin
Close;
   SQL.Clear;
   SQL.Text:=  ' select fRemainQuantity from SM_ColYarnRemain '
    + ' Where sIsOut = 'Y' ';
Open;
END;
if StrToFloat(qry1.FieldByName('fRemainQuantity').AsString )+0.001 <0 THEN
BEGIN
...
END
 Where sIsOut = 'Y' 
如果查询出来的是空，就是没有查到结果就会出现(‘’+0.001<0) 错误，如果是没有查到结果是空值就转换成0这样就可以不报错了，请各位出个招

Answer 1

  你可以这样，判断一下查询出来的结果是否的值，qry1.RecordCount -1 值是不是大于0(就是查询是否为空)  
 if  qry1.RecordCount -1 > 0 then
 begin
   if (qry1.FieldByName('fRemainQuantity').asfloat)+0.001 <0 THEN
   BEGIN
    ...
   END
 end