求一个 如何 将 字节 数组 转 16进制 显示 ???

Question

求一个 如何 将 字节 数组 转 16进制 显示 ???例如 : 有一个  4个字节的 字节数组 buf 变量, 我想用 16进制 显示 , 例如显示为 : 1F 00 1D 5A如何实现?

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  ch:array[0..3] of byte;
  i: integer;
  str:string;
begin
  ch[0]:=$a8;
  ch[1]:=$b9;
  ch[2]:=$c0;
  ch[3]:=$d1;
  str:='';
  for i:=0 to 3 do
  str:=str+inttohex(ch[i],1);
  showmessage(str);
end;

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text :=Formate('%x',[10])
end;