将一个REAL型变量从一个二进制文件中读出,200分啊(200分)

F

fzbxh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #1

大虾们：
有一个文件，我在文件头第4672处发现了7B 14 AE 47 E1 FA 2D 40,我知道这个数字是
浮点数字14.99，但我怎么样才能把他读出呢，求救啊!!!!!!!
read? fileread? BlockRead ? convert ??????
求救了，多谢多谢，在线等待.

 

W

windbell

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #2

type
trd=record
tt:array[0..4671] of byte; //或1..4671
data:double;
end;
var
rd:trd;
f:file of trd;
begin
assignfile(f,filename);
reset(f);
read(f,rd);
//rd.data 就是你要的数据了.
end;

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #3

你的字节好像不对，real 是6字节的好像。
你最好查查那个字节对应的浮点数的那一部分，然后组合
不过你先用
a:array[0..6] of byte;
b:float;
move（a,b,6)试一下

 

F

forgot2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #4

7B 14 AE 47 E1 FA 2D 40=14.99?为什么这样说？不解。你是怎么知道的，你通过什么运算法则
得到这个结果的？

 

F

fzbxh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #5

多人接受答案了。