在delphi中怎么实现将ascii码转换成十六进制

试编写示例代码如下： procedure TForm1.btn1Click(Sender: TObject);var c: AnsiChar; i: Integer;begin c := 'a'; i := Ord(c); ShowMessage('a 的十六进制 ascii 是：' + IntToHex(i,2));end;运行截图：