我要将一个数值转换为四个字节
例如:
var
sbuf:array[1..256] of byte;
将一个数值很大的数值10000000转换为四个字节
现在发送一串字符串:
sbuf[1]:=byte[x];
sbuf[2]:=byte[y];
sbuf[3]:=byte[z];
sbuf[4]:=byte[a];
怎么转换?
例如:
var
sbuf:array[1..256] of byte;
将一个数值很大的数值10000000转换为四个字节
现在发送一串字符串:
sbuf[1]:=byte[x];
sbuf[2]:=byte[y];
sbuf[3]:=byte[z];
sbuf[4]:=byte[a];
怎么转换?
解决方案 »
- select语句带有in
- trunc函数问题请教,很紧急,很诡异,在线等
- 100分,安全关闭线程问题!!!
- 200分高难度问题,解决立即给分(文件统计)
- 请教高手在多层结构下客房端如何连接到服务端的多个SOAP SERVER DATA MODULE。急需使用。
- 请问有没有关于Windows API与Delphi相关的书呀?
- 寻找线性方程组最小二乘解的算法。
- 我的DELPHI6的DATA ACCESS 控件组中怎么没有DATABASE控件,这个控件还需要另外安装吗?
- 皮肤制作的过程?
- 关于打印队列的问题,等待!
- 昨天...和我的老婆...大吵了一架........家事,大家都要表一下意见
- D版的Delphi开发的软件,会不会被人告?共享的,开源的?
例如:
我将65535转换为四个字节表示(低字节在前,高字节在后)
sbuf[1]:=byte($00);
sbuf[2]:=byte($00);
sbuf[3]:=byte($FF);
sbuf[4]:=byte($FF);
这个怎么转换?请赐教!在线等待!
sbuf[2]:=byte((X and $00FF0000) shr 16);
sbuf[3]:=byte((X and $0000FF00) shr 8);
sbuf[4]:=byte((X and $000000FF))
sbuf[0]:=chr((x shr 24) and $ff);
sbuf[1]:=chr((x shr 16) and $ff);
sbuf[2]:=chr((x shr 8) and $ff);
sbuf[3]:=chr(x and $ff);
其实后面的 and $FF 不用也可以的。
用这个方法速度有保证