将 4 个 Byte 合成 1 个 Integer 的五种方法 - 回复 "三足乌" 的问题
2010-04-24 16:13
465 查看
问题来源: http://www.cnblogs.com/del/archive/2010/04/21/1717584.html#1809298
//方法 1: 共用内存 procedure TForm1.Button1Click(Sender: TObject); var bf: record b1,b2,b3,b4: Byte end; i: Integer absolute bf; begin bf.b1 := $CC; bf.b2 := $DD; bf.b3 := $EE; bf.b4 := $FF; ShowMessageFmt('%x', [i]); //FFEEDDCC end; //方法 2: 位运算 procedure TForm1.Button2Click(Sender: TObject); var i: Integer; begin i := $CC or ($DD shl 8) or ($EE shl 16) or ($FF shl 24); //不用括号也可 ShowMessageFmt('%x', [i]); //FFEEDDCC end; //方法 3: 使用函数 procedure TForm1.Button3Click(Sender: TObject); var i: Integer; begin i := MakeLong(MakeWord($CC,$DD), MakeWord($EE,$FF)); ShowMessageFmt('%x', [i]); //FFEEDDCC end; //方法 4: 从静态数组... procedure TForm1.Button4Click(Sender: TObject); var bs: array[0..3] of Byte; P: PInteger; begin bs[0] := $CC; bs[1] := $DD; bs[2] := $EE; bs[3] := $FF; P := @bs; ShowMessageFmt('%x', [P^]); //FFEEDDCC end; //方法 5: 从动态数组... procedure TForm1.Button5Click(Sender: TObject); var bs: array of Byte; P: PInteger; begin SetLength(bs, 4); bs[0] := $CC; bs[1] := $DD; bs[2] := $EE; bs[3] := $FF; P := @bs[0]; ShowMessageFmt('%x', [P^]); //FFEEDDCC end;
相关文章推荐
- 将 4 个 Byte 合成 1 个 Integer 的五种方法 - 回复 "三足乌" 的问题
- 【转】将 4 个 Byte 合成 1 个 Integer 的五种方法
- delphi中将 4 个 Byte 合成 1 个 Integer 的五种方法
- delphi中将 4 个 Byte 合成 1 个 Integer 的五种方法
- 如何把类中的方法做参数 - 回复 "林Lin☆☆" 的问题
- 如何在数据表中存取图片 - 回复 "三足乌" 的问题
- 如何在数据表中存取图片 - 回复 "三足乌" 的问题
- iBaits中,关于insert返回值的问题(注意!!!不必写resultClass= "java.lang.Integer",方法的返回值就是int)
- 解决Permission denied: user=root, access=WRITE, inode="/":hdfs:supergroup:drwxr-xr-x 问题方法
- "undefined reference to" 多种可能出现的问题解决方法
- 独立安装SharePoint 2013碰到的"SDDL"问题及解决方法
- 解决C#中一个"异步方法却同步执行"的问题
- 简单的 "双缓冲" 绘图的例子 - 回复 "TookiQ" 的问题
- VC6.0 CXX0017:Error:symbol "xxx" not found问题解决方法
- Windows 2003 +iis 6.0 中Silverlight错误,无法下载Silverlight应用程序。请查看Web服务器设置." 问题的解决方法
- "undefined reference to" 问题解决方法
- [Android] 更好的解决 "返回键或取消时自动回调DatePickerDialog的方法onDateSet()" 的问题
- "undefined reference to" 问题解决方法
- jQuery中animate()的方法以及$("body").animate({"scrollTop":top})不被Firefox支持问题的解决
- Visual Studio2010"当前不会命中代码,源代码与原始版本不同"问题的解决方法