如何将Double型数据占的8字节颠倒过来(50分)

Hydra0 · 2006-12-29

如题

easykoala · 2006-12-29

PChar(double)
p[0]..p[7]

janker · 2006-12-29

定义一个结构:
TDFloatRec = packed Record
case Integer of
0

df

ouble);
1

b0,b1,b2,b3:Byte);
end;
end;
内存中数据是按低字节在前，高字节在后存放的

nicai_wgl · 2006-12-29

easykoala和janker的方法都可行
var
tmpPByte: PByte;
tmpByte: Byte;
tmpdouble: Double;
begin
tmpPByte := PByte(tmpdouble);
{ 交换高低位 }
....
end;

tianye820 · 2006-12-29

var
tembyteArr : array[0..7]of byte;
Vdouble;
begin
move(VDouble,tembyteArr,8);
//剩下的工作，你自己颠倒数组就可以
end;

Hydra0 · 2006-12-29

多人接受答案了。