如何使用delphi将十六进制转换为十进制并将十六进制转换为八进制？

Question

function HexToDec(Str: string): Integer;
var
i, M: Integer;
begin
Result:=0;
M:=1;
Str:=AnsiUpperCase(Str);
for i:=Length(Str) downto 1 do
begin
case Str[i] of
  '1'..'9': Result:=Result+(Ord(Str[i])-Ord('0'))*M;
  'A'..'F': Result:=Result+(Ord(Str[i])-Ord('A')+10)*M;
end;
M:=M shl 4;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text<>'' then
Label2.Caption:=IntToStr(HexToDec(Edit1.Text));
end;

如何在没有函数的情况下使用它，因为我想在另一行再次调用结果，那么十六进制到八进制呢？我必须从十六进制转换为十进制，然后再从十进制转换为八进制吗？

Answer 1

Delphi 已经可以做到这一点，因此您无需编写解析数字的函数。其实很简单：

function HexToDec(const Str: string): Integer;
begin
  if (Str <> '') and ((Str[1] = '-') or (Str[1] = '+')) then
    Result := StrToInt(Str[1] + '$' + Copy(Str, 2, MaxInt))
  else
    Result := StrToInt('$' + Str);
end;

请注意，它也可以处理负十六进制数字，或像 +$1234 这样的数字。

如何在没有功能的情况下使用它，因为我想在另一行再次调用结果？

如果您想重复使用该值，请将HexToDec 的结果分配给一个变量并在IntToStr 中使用它。

---

FWIW，在您的函数中，无需调用AnsiUpperCase，因为无论如何所有十六进制数字都在 ASCII 范围内。一个更简单的UpperCase 也应该可以工作。

Answer 2

我的第一条评论是，您没有使用函数将十六进制转换为十进制（尽管您将转换为十进制作为中间值），而是将十六进制转换为整数。然后 IntToStr 有效地将整数转换为以 10 为底。为了概括您想要的内容，我将创建两个函数 - strBaseToInt 和 IntToStrBase 其中 Base 意味着例如十六进制为 16，十进制为 10，八进制为 8 等，并假设十六进制采用 A=10 的约定，依此类推，但（可能）Z = 35，使最大基数可能为 36。

我不处理 + 或 - 但可以轻松添加。

在反向函数中，再次为简单起见，我省略了支持负值。

编辑

感谢 Rudy 的改进

编辑 2 - 根据 cmets 添加了溢出测试

function StrBaseToInt(const Str: string; const Base : integer): Integer;
var
  i, iVal, iTest: Longword;
begin
  if (Base > 36) or (Base < 2) then raise Exception.Create('Invalid Base');
  Result:=0;
  iTest := 0;
  for i:=1 to Length(Str) do
  begin
    case Str[i] of
      '0'..'9': iVal := (Ord(Str[i])-Ord('0'));
      'A'..'Z': iVal := (Ord(Str[i])-Ord('A')+10);
      'a'..'z': iVal := (Ord(Str[i])-Ord('a')+10);
      else raise Exception.Create( 'Illegal character found');
    end;
    if iVal < Base then
    begin
      Result:=Result * Base + iVal;
      if Result < iTest then  // overflow test!
      begin
        raise Exception.Create( 'Overflow occurred');
      end
      else
      begin
        iTest := Result;
      end;
    end
    else
    begin
      raise Exception.Create( 'Illegal character found');
    end;
  end;
end;

然后，例如，您的 HexToOct 函数将如下所示

function HexToOct( Value : string ) : string;
begin
  Result := IntToStrBase( StrBaseToInt( Value, 16), 8 );
end;

附加

一般功能是

function BaseToBase( const Value : string; const FromBase, ToBase : integer ) : string;
begin
  Result := IntToStrBase( StrBaseToInt( Value, FromBase ),ToBase );
end;