5,388
社区成员
发帖
与我相关
我的任务
分享怎样将一个浮点数转存到4位Byte型数组中？如87925 －> a[0],a[1],a[2],a[3].a:array[0..3] of byte.
...全文
请发表友善的回复…
发表回复
newyj 2001-08-28
- 打赏
- 举报
aa:float;
a[0]:=(aa and $FF000000) shr 24;
a[1]:=(aa and $00FF0000) shr 16;
a[2]:=(aa and $0000FF00) shr 8;
a[4]:=(aa and $000000ff)
好像错了?
a[0]:=(aa and $FFFF000000000000) shr 48
a[0]:=(aa and $FF000000) shr 24;
a[1]:=(aa and $00FF0000) shr 16;
a[2]:=(aa and $0000FF00) shr 8;
a[4]:=(aa and $000000ff)
好像错了?
a[0]:=(aa and $FFFF000000000000) shr 48
