数值转换移位

1。输入一个数值（10位的十进制数字）
2。程序里先把这个数据转为四组十六进制，如A1 A2 A3 A4
再把这四组十六制转变为A4 A3 A2 A1
3。点击转换按钮，即可得到此十六进制A4 A3 A2 A1
的十进制结果

<------比如十进制
1234567890
转为十六进制为
49 96 02 D2
把这四组变为
D2 02 96 49
后，再转为十进制输出
即得到十进制数
3523384905

-------->

 

function TrasNum(num:Cardinal):Cardinal;
begin
result := (num and $000000FF) shl 24 + (num and $0000FF00) shl 8
+ (num and $00FF0000 ) shr 8 + (num and $FF000000) shr 24;
end;


调用 showmessage(inttostr(TrasNum(1234567890)));