delphi中将 4 个 Byte 合成 1 个 Integer 的五种方法

有4个字节类型的值，用移位或逻辑运算符怎么合成一个整数？
比如 $FFEEDDCC。
高
$FF
$EE
$DD
$CC
低

//方法 1: 共用内存procedure TForm1.Button1Click(Sender: TObject);varbf: record b1,b2,b3,b4: Byte end;

i: Integer absolute bf;beginbf.b1 := $CC;

bf.b2 := $DD;

bf.b3 := $EE;

bf.b4 := $FF;

ShowMessageFmt(‘%x‘, [i]);

//FFEEDDCC

end;//方法 2: 位运算procedure TForm1.Button2Click(Sender: TObject);vari: Integer;begini := $CC or ($DD shl 8) or ($EE shl 16) or ($FF shl 24);//不用括号也可ShowMessageFmt(‘%x‘, [i]);

//FFEEDDCC

end;//方法 3: 使用函数procedure TForm1.Button3Click(Sender: TObject);vari: Integer;begini := MakeLong(MakeWord($CC,$DD),MakeWord($EE,$FF));

ShowMessageFmt(‘%x‘, [i]);

//FFEEDDCCend;//方法 4: 从静态数组...procedure TForm1.Button4Click(Sender: TObject);varbs: array[0..3] of Byte;

P: PInteger;beginbs[0] := $CC;

bs[1] := $DD;

bs[2] := $EE;

bs[3] := $FF;

P := @bs;

ShowMessageFmt(‘%x‘, [P^]);

//FFEEDDCC

end;//方法 5: 从动态数组...procedure TForm1.Button5Click(Sender: TObject);varbs: array of Byte;

P: PInteger;beginSetLength(bs, 4);

bs[0] := $CC;

bs[1] := $DD;

bs[2] := $EE;

bs[3] := $FF;

P := @bs[0];

ShowMessageFmt(‘%x‘, [P^]);

//FFEEDDC

Cend;

http://w-tingsheng.blog.163.com/blog/static/2505603420122643224621/