怎样将Variant转换成float

Question

通过vartostr可以将Variant转换string，当variant为null时转换成空字符串。有没有什么函数能把variant转换成float，当为null时转成零。

Answer 1

自已写一个怎么样?
function VariantToFloat(value :Variant):Float;
begin
 if value='' then
    Result :=0.00
 else 
    Result := StrToFloat(value);end;

Answer 2

这样行不行？var
v:Variant;
f:float;begin
   if v=null then
      f:=0
   else
     f:=float(v);
end;

Answer 3

既然你可以将Variant转换string
你就可以再用个strtofloat转换过来就是啊
strtofloat(vartostr(x));
自己在前面加个判断就可以了
呵呵这样好理解些
其实不用转换的
楼上的就可以了

Answer 4

可以用trystrtofloat先判断一下是不是能转换成浮点数.