急 Delphi如何把字符转为双精度型 ？？

[zgjob2]

从一个DBF中获取到的字段值为 1.48539705505907E-315
如何转换为双精度型数字

[pathletboy]

var
  f: Double;

  f := StrToFloat('1.48539705505907E-315');

[zgjob2]

strtofloat不得行

[lyhoo163]

procedure TForm1.Button1Click(Sender: TObject);
var  f: Double;
begin
  f := StrToFloat('1.48539705505907E-315');
  Edit1.Text:=FloatToStr(F);
  Edit2.Text:=FloatToStr(F*2);
end;

此数在有效范围内。可行的，通过Edit，可以检验。

[zgjob2]

没给各位说清楚，原始数据是 1566885.07 所以上面说的用strtofloat是不行的

[santiaodahan]

如果是从字符串类型转的话，先StrtoFloat，然后赋值给一个double类型变量。数据集组件自带转换功能，AsFloat直接转成双精度型。

[sxwhkj]

连上数据库，然后 adoquery.fieldbyname(字段名).asfloat;