0 b1000 x8820=0, 1000001, 0000, converted to an integer=0 b100, 0010000 0=4 * 256 + 2 * 16=1056

Key is 0 b1000, 1000001, 0000, is how to convert 0 b100, 0010000 0

Thank you for your attention

CodePudding user response:

If just turn this number, it is simple, low the number eight, plus the number of the high 8-bit five moves to the right, you can get:
Procedure TForm1. Button1Click (Sender: TObject);
Var
I, j: word;
The begin
I:=$8820;
J:=(I and $00 ff) + ((I SHR 5) and $FF00);
Showmessage (intToStr (j));
end;

CodePudding user response:

Thank you upstairs, solved