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

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

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

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;