4个字节组合成一个整数以及一个整数拆分出4个字节

4个字节组合成一个整数以及一个整数拆分出4个字节

通讯的时候，经常自定义协议，用一个整数的4个字节分别传递1个值。这样，一个整数一共可以传递4个值。

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

procedure TForm1.Button1Click(Sender: TObject); var   b, b2, b3, b4: Byte;   a, a2, a3, a4: Byte;   w, w2: Word;   s, s2: Word;   i: Integer; begin   // 4个字节组合成一个整数   b := 1;   b2 := 2;   b3 := 3;   b4 := 4;   w := MakeWord(b, b2);   // 低字节在前，高字节在后   w2 := MakeWord(b3, b4);   i := MakeLong(w, w2);   // 低字在前，高字在后   // 一个整数拆分出4个字节   s := loword(i);   s2 := HiWord(i);   a := lobyte(s);   ShowMessage(IntToStr(a));     //1   a2 := HiByte(s);   ShowMessage(IntToStr(a2));    //2   a3 := lobyte(s2);   ShowMessage(IntToStr(a3));    //3   a4 := HiByte(s2);   ShowMessage(IntToStr(a4));    //4 end;