delphi 16进制转10进制 代码

以下是 Delphi 中将 16 进制转换为 10 进制的代码示例：

function HexToDec(Hex: string): Integer;
var
  i, len, digit: Integer;
  ch: Char;
begin
  Result := 0;
  len := Length(Hex);
  for i := 1 to len do
  begin
    ch := UpCase(Hex[i]);
    if ch in ['0'..'9'] then
      digit := Ord(ch) - Ord('0')
    else if ch in ['A'..'F'] then
      digit := Ord(ch) - Ord('A') + 10
    else
      Exit; // 非法字符，直接返回
    Result := Result * 16 + digit;
  end;
end;

使用示例：

var
  HexStr: string;
  DecValue: Integer;
begin
  HexStr := '1A'; // 待转换的 16 进制字符串
  DecValue := HexToDec(HexStr);
  ShowMessage(IntToStr(DecValue)); // 显示转换结果
end;

该函数可以处理大小写字母的 16 进制字符串，并且会忽略其中的非法字符。

相关问题

delphi16进制转10进制

Delphi没有提供专门的函数来将十六进制转换为十进制,但是你可以使用StrToInt函数来实现这个功能。在转换之前，需要在十六进制数前面加上一个"$"符号。下面是一个示例代码：

var
  hexStr: string;
  decNum: integer;
begin
  hexStr := '$FF';
  decNum := StrToInt(hexStr);

  ShowMessage(IntToStr(decNum)); //显示转换后的十进制数
end;

这段代码将十六进制数"FF"转换为对应的十进制数255，并将其显示出来。

delphi 16进制转字符

在 Delphi 中，可以通过以下代码将一个十六进制字符串转换为字符：

function HexToChar(const Hex: string): Char;
var
  Code: Integer;
begin
  Code := StrToInt('$' + Hex);
  Result := Chr(Code);
end;

使用示例：

var
  HexStr: string;
  Ch: Char;
begin
  HexStr := '41'; // 十六进制字符串 '41' 表示 ASCII 码值为 65 的字符 'A'
  Ch := HexToChar(HexStr);
  ShowMessage(Ch); // 显示 'A'
end;

注意：这里假设输入的十六进制字符串是有效的，否则可能会出现异常。