var
a :array[0..1] of byte;
i:integer;//i肯定少于10000请问如何将i值赋值给a,并且如何将a读回到i中?谢谢
a :array[0..1] of byte;
i:integer;//i肯定少于10000请问如何将i值赋值给a,并且如何将a读回到i中?谢谢
解决方案 »
- 用UniDAC连接MySQL数据库,为什么连不上?
- 如何模仿可扩展或收缩的 IE
- 如何在dbgrid中显示小于10*e-4的数???
- 用Socket传输文件,点对点已经可以了,但是点对多不知道如何实现
- 请问DELPHI加远程SQL有哪些需要注意的地方吗??
- Delphi7中,要建立基于COM+是使用Multier那项?
- 问个问题:判断字符串采取相应的处理,我想用case语句,不想用if,怎么办?
- 在程序中自动给ACCESS建表时遇到文本型字段,想设置为"允许空字符串",注意!不是允许空值!在程序中设 null不管用, 各位有啥高招没?!
- dephi应用程序可以对网卡进行操作,那么它可以对我们计算机中pci插槽进行控制么?
- delphi 中如何实现三层架构???急~~~~先谢谢了....
- 在一起6年了,快和心爱的人订婚了!高兴!
- 这个能实现吗????
MoveMemory(@a,@i,2);//正常来说,应该是4个字节。
MoveMemory(@i,@a,2);//试试看,应该是可行的。
00000000 00000000 00000001 11110100a[0] := BYTE(i); // 244
a[1] := BYTE(i shr 8); // 1
就是如何将各个字节相加取和。C++中是这样写的,不过我不知道该如何转换为delphi,help!!int sum = 0;
for(int i = 0; i < buflen; i++)
sum += buf[i];
sum := 0;
for i:=0 to buflen-1 do
sum:=sum+ord(buf[i]);