ASCCI 怎么转 十六进制啊

Question

ID:
效果：49 44 3A

Answer 1

  i := Ord('I');
  ShowMessage(Format('%x',[i]));

Answer 2

BinToHex ;
for 
beginend;没想到好方法.
只能写循环了.

Answer 3

var i,j,id:LongWord;
    ch:char;
    k:byte;
    a2char:Array[0..3] of char;
    str:string;
for i:=0 to 2 do
    a2char[i]:=#0;
for i:=0 to 3 do
begin
  
  k:=id shr (8*(3-i));
  BinToHex(@k,a2char,1);
  str:=str+a2char;
  if i<3 then
    str:=str+' ';
end;