var f: Double; f := StrToFloat('1.48539705505907E-315');
strtofloat不得行
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,可以检验。
f: Double; f := StrToFloat('1.48539705505907E-315');
var f: Double;
begin
f := StrToFloat('1.48539705505907E-315');
Edit1.Text:=FloatToStr(F);
Edit2.Text:=FloatToStr(F*2);
end;此数在有效范围内。可行的,通过Edit,可以检验。
adoquery.fieldbyname(字段名).asfloat;