如何读取一个double类型的数据文件! c++可以操作；是不是delphi不行呢?

[lanren_me]

type dl=array of double;
var sf:String;
fhwnd,iFileLength,ln,integer;
dr:dl;
begin
if opendlg.Execute then
begin
sf:=opendlg.FileName;
fhwnd:=FileOpen(sf,fmOpenRead);
iFileLength := FileSeek(fhwnd,0,2);
FileSeek(fhwnd,0,0);
ln:=round((iFileLength+1)/sizeof(double));

setlength(dr,sizeof(double)*ln);

FileRead(fhwnd,dr,sizeof(double)*ln); //读取不到任何东西；都是0;

FileClose(fhwnd);
...

setlength(dr,0);

end;
end;

[jiju]

试试
FileRead(fhwnd,dr[0],sizeof(double)*ln);

[李_军]

这样做
var
f: File of Double;
s: Double;
begin
assignFile(F,'c:\aa.dat');
reset(f);
while not eof(f) do
read(f,s); //然后做相应操作
closeFile(F);
end;

[lanren_me]

谢谢各位:

jiju(UNCC) 的方法最快;

ljmanage(过客) 的方法可行；但是不切合实际;因为我的数据量有好几百万

一个个读那读到什么时候!

不管怎么说，问题解决了;

谢谢了;