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 进制字符串，并且会忽略其中的非法字符。