Delphi7中string型转换成double型

strtofloatdef要求要有默认值，而你没有输入默认值肯定会报错；
例如：
var
d : Double;
s : string;
要转字符串可以：
s := StrToFloat(d);
也可以
s := StrToFloatDef(d,0);
所以你的指定默认值就可以了，试试
B[i]:= strtofloatdef(data[i,1],0) ;

function AnsiToUnicode(Ansi: string):string;
var
s:string;
i:integer;
j,k:string[2];
a:array [11000] of char;
begin
s:='';
StringToWideChar(Ansi,@(a[1]),500);
i:=1;
while
((a[i]<>#0) or (a[i+1]<>#0)) do begin
j:=IntToHex(Integer(a[i]),2);
k:=IntToHex(Integer(a[i+1]),2);
s:=s+k+j;
i:=i+2;
end;
Result:=s;
end;

条形码和人的指纹在些类似,对于条码识别器来说,只不过是一种标记,条码器扫描条码后,与条码器连接着的软件就会把扫描的图形,去与软件中已经[定义的条码图像去比较,从而该条码代表的是什么东西,所谓定义就是东西的其它信息,如名称\价格等等由此可知,如果条码在小范围使用,是可以任意做的,只要不重复就行你可以参考条码规则,多找一些条码看看,数字1至9的条码形态构成规律,找到这些规律之后,你就可以用DELPHI的CANVAS类来绘制和打印条码了,几段宽窄不同的直线而已CANVAS做绰绰有余

---