delphi的16进制转换

Question

用InttoHex函数，原型如下：function IntToHex(Value: Integer; Digits: Integer): string
下面是一个例子：procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Label1.Caption := '';
  for i := 1 to Length(Edit1.Text) do
  begin
    try
      Label1.Caption := Label1.Caption + IntToHex(Edit1.Text[i],4) + ' ';
    except
      Beep;
    end;
  end;
end;

Answer 1

IntToHex
函数格式：
function IntToHex(Value: Integer; Digits: Integer): string;