Question

delphi 中如何将string转成extended?急求。。。。。。strtofloat用不了啊？

我现在要处理的数字这种形式：9.062705115038622E-4 或者-0.0018839088514177576 因为比较大用double 就不行了，比double 能存储的是extended吧？我现在要把以上数字的字符串转成extended类型再存在数组中，可是strtofloat截取之后精度就变了，比如说： 0.0022783474240102275用strtofloat后就是0.002278347424只有前12位。怎么办呢？

Answer 1

用以下方式，即使用val过程可以得到15位有效数字的实数。
procedure TForm1.Button1Click(Sender: TObject);
var
  s,ss:string;
  i,code:integer;
  z:extended;    {使用real、double、extended 效果一样}
begin
  s:=edit1.Text;
  val(s,z,code);
  str(z:0:20,ss);
  edit2.Text:=ss;
end;

追问

谢谢你的回答，我试了用val还是不行啊，还是只截取了前12位，怎么办呢？

追答

我得到的结果是15位 ！

追问

你好，我算了一下，从小数点起算上0是19位，用extended存应该没问题吧，可是我直接给extended变量存0.0022783474240102275都存不了，用val转换后还是前12位。。。能不能加我一下扣扣。。。526779789 给你加分。。。谢谢了

追答

验证代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  s,ss:string;
  i,code:integer;
  z:extended;    {使用real、double、extended 效果一样}
begin
  s:=edit1.Text;
  val(s,z,code);
  str(z,ss);
  edit2.Text:=ss;
  edit3.Text:=floattostr(strtofloat(s));
end;
经验证，val和strtofloat函数效果基本一致，都有15位有效数字，后者可进行舍入操作。

追问

你好，看你的验证确实是保留了15位有效数字，但是我的就保存不了，只能是前12位，而且我的目的不是取前15位数，我要把全部的数字取出来，全部取出我算了一下共有20位（算上小数之前的）。我的验证如下：得不到想要的结果还是那么少的位数，我该怎么办。。。。。