デルファイで2バイトを1つの16ビット数に変換するには？

Question

だから私は、例えば2バイトで、持っている：13、61

を、私は16ビットに変換したい：3389

は今、私は、関数を使用しています：

function IntPower(const N, k: integer): integer; 
var 
    i: Integer; 
begin 
    Result:= (256 * N) + k; 
end; 

を

Delphiでこれを行うより良い方法はありますか？

Answer 1

です。あなたは代わりにシフト演算を使用することができます。

または

Result := N shl 8 or k; 

のいずれかが正常に動作し、あなたが好む方選ぶ必要があります。

Answer 2

二つの代替方法は罰金であること

function CreateWord(const A, B: byte): word; 
begin 
    result := word(A) shl 8 or B; 
end; 

と

function CreateWord(const A, B: byte): word; 
var 
    WR: WordRec; 
begin 
    WR.Hi := A; 
    WR.Lo := B; 
    result := word(WR); 
end; 

Answer 3

コードは問題ありません。

N、Kと結果が基数として定義されている場合、コンパイラは実際にはSHL asmオペコードを使用しますが、実際には*よりも高速ではありません - MULは1サイクル演算IIRCです。

function IntPower(const N, k: cardinal): cardinal; inline; 
begin 
    Result:= (256 * N) + k; 
end; 

はここでメインのトリックは非常に高速なコードを作成します​​を定義することです。