Question

Delphi7中string型转换成double型

我在Delphi7中先定义了一个二维string型数组，我想再将数组的一列放入另一个double型的一维数组里，所以我用了strtofloat（）强制转换后再赋值，调试出错。又试了 strtofloatdef（），提示

也显示不对，求大侠帮忙指点一下，真心感谢~
data: array of array of String;
B : array of Double;

for i:=0 to conI-1 do
begin
B[i]:= strtofloatdef(data[i,1]) ;

end;
提示出错在 B[i]:= strtofloatdef(data[i,1]) ;

Answer 1

strtofloatdef要求要有默认值，而你没有输入默认值肯定会报错；

例如：
var
d : Double;
s : string;
要转字符串可以：
s := StrToFloat(d);
也可以
s := StrToFloatDef(d,0);

所以你的指定默认值就可以了，试试
B[i]:= strtofloatdef(data[i,1],0) ;

追问

感谢您的回答，不过还是调试有问题。

您知道这是什么问题吗？

Answer 2

见下面例程，用strtofloat()没问题：

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
s:string;
a:double;
begin
s:='34578.76545';
a:=strtofloat(s);
writeln(a);
readln;
end.

追问

感谢您的回答，我之前针对一个数据这么做也是没问题，不过这次是两个数组的数据转换，调试就不行。

追答

哦。这样啊！ 我觉得同样的操作，对简单变量可行，对数组元素也行。

Answer 3

代码贴下啊

追问

不好意思
data: array of array of String;
B : array of Double;

for i:=0 to conI-1 do
begin
B[i]:= strtofloatdef(data[i,1]) ;

end;