DELPHI进制转换大全代码

在编程领域，进制转换是一项基础且重要的技能。在Delphi这种强大的面向对象的 Pascal 编程语言中，实现各种进制之间的转换同样至关重要。本文将深入探讨如何在Delphi中进行二进制、八进制、十进制和十六进制之间的转换，并通过实例代码来展示具体的操作步骤。 我们来看二进制（Binary）和十进制（Decimal）之间的转换。在Delphi中，可以使用`StrToInt`和`IntToStr`函数进行基本的转换，但它们不支持二进制字符串。因此，我们需要自定义函数来处理： ```delphi function BinToDec(const BinStr: string): Integer; var I: Integer; Value: Integer; begin Value := 0; for I := Length(BinStr) - 1 downto 0 do if BinStr[I] = '1' then Inc(Value, Power(2, (Length(BinStr) - I - 1))); Result := Value; end; function DecToBin(Value: Integer): string; var I: Integer; begin SetLength(Result, 32); for I := 0 to 31 do begin Result[I + 1] := Char('0' + (Value and 1)); Value := Value shr 1; end; while Result[1] = '0' do Delete(Result, 1, 1); end; ``` 接下来是八进制（Octal）和十进制之间的转换，Delphi内置的`Oct`和`StrToOct`函数可以方便地完成这个任务： ```delphi var OctStr: string; DecimalValue: Integer; begin // 十进制转八进制 OctStr := Oct(1234); // 输出 "3022" // 八进制转十进制 DecimalValue := StrToOct('3022'); // 输出 1234 end; ``` 对于十六进制（Hexadecimal）和十进制，Delphi提供了`Hex`和`StrToHex`函数： ```delphi var HexStr: string; DecimalValue: Integer; begin // 十进制转十六进制 HexStr := Hex(123456); // 输出 "1E240" // 十六进制转十进制 DecimalValue := StrToHex('1E240'); // 输出 123456 end; ``` 除了上述的基本转换，还可以扩展到更复杂的场景，比如字符串到特定进制的转换，或者将数值转换为任意进制的字符串。以下是一个通用的进制转换函数，它接受一个整数和目标进制作为参数： ```delphi function IntToBase(Value: Integer; Base: Integer): string; var Num, Divisor: Integer; Remainder: Byte; Chars: array[0..15] of Char = ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F'); begin if Base > 16 then raise Exception.Create('Base must be between 2 and 16'); Result := ''; Num := Abs(Value); while Num > 0 do begin Divisor := Num div Base; Remainder := Num mod Base; Result := Chars[Remainder] + Result; Num := Divisor; end; if Value < 0 then Result := '-' + Result; end; ``` 这个函数可以处理2到16之间的任何进制，包括二进制、八进制、十进制和十六进制。例如： ```delphi var HexStr: string; begin HexStr := IntToBase(12345, 16); // 输出 "3039" end; ``` 以上就是关于Delphi中进制转换的一些基础知识和实例代码。理解和掌握这些内容，将有助于你在实际开发过程中更高效地处理数字和字符串之间的转换需求。在实践中，你可能会遇到更复杂的情况，比如处理负数、大整数或自定义进制，但基本原理都是相同的，只需要灵活应用和扩展即可。