delphi - 在delphi中合并两个字节

Question

前提是我在Delphi中有两个字节变量：

var 
    b1,b2,result:byte;
begin
    b1:=$05;
    b2:=$04;
    result:=??? // $54
end;

然后，我将如何结合两者以产生值 $54的字节？

Answer 1

最简单的方法是

result := b1 * $10 + b2

“高级”方式：

result := b1 shl 4 + b2