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;