怎样取16进制数左移8位数 ( 积分: 50 )

  • 主题发起人 主题发起人 wh88
  • 开始时间 开始时间
W

wh88

Unregistered / Unconfirmed
GUEST, unregistred user!
如c972 左移8位为c9
 
手动:) 根据要移动的位数来移动其中的某个字节, 然后再组合[:D]
 
procedure TForm1.Button1Click(Sender: TObject);
var
hex: string;
begin
hex:='c972';
Label1.caption:= IntToHex((StrToInt('$'+hex) shr 8),2);
end;
 
接受答案了.
 
后退
顶部