delphi 将 4 个 Byte 合成 1 个 Integer 的五种方法 - 回复 "三足乌" 的问题


本文整理自网络,侵删。

 将 4 个 Byte 合成 1 个 Integer 的五种方法 - 回复 "三足乌" 的问题

问题来源: 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;

相关阅读 >>

Delphixe4 版本中,已针对移动平台 引入了 arc 模型

Delphi 取到系统临时文件夹路径

Delphi 图像分割

Delphi bmp 转换jpg

Delphi fmx关闭安卓程序

Delphixe ansi字符串utf-8编码判断

Delphi 给label1字加边的又一个算法

Delphi firemonkey app 如何获得当前系统语言设置

Delphi 窗体的位置和高宽度-tform:letf、top、width、height、clientwidth、clientheight

Delphi unidbtreegrid判断点击折叠事件

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...