Delphi 进制转换的实现与思路

众纳

于 2024-11-28 09:41:02 发布

阅读量200

点赞数 1

本文链接：https://blog.youkuaiyun.com/weixin_44690195/article/details/144080438

版权

前言

Delphi 很多时候需要对进制进行转换；10进制转16进制、16进制转10进制、2进制等

10进制转换成16进制

SysUtils

Category

numeric formatting routines

function IntToHex(Value: Integer; Digits: Integer): string;
function IntToHex(Value: Int64; Digits: Integer): string; 
overload;
example fir it
procedure TForm1.Button1Click(Sender: TObject);

begin
Edit2.Text := IntToHex(StrToInt(Edit1.Text), 6);
end;

16进制字符转换为10进制

方式1

Function HexToDec(const Value :Integer ) : string;
var
s : string;
begin
s := '$' + IntToStr(Value);
Result := InToStr(StrToInt(s));
end;

方式2：

Funtion HexToDec(const Value :Integer) : string;
CONST HEX : ARRAY['A'..'F'] OF INTEGER = 
(10,11,12,13,14,15);
VAR
str : String;
In : Integer;
i : integer;
BEGIN
Str := UpperCase(IntToStr(Value));
Int := 0;
FOR i := 1 TO Length(str) DO
IF str[i] ＜ 'A' THEN
Int := Int * 16 + ORD(str[i]) - 48
ELSE
Int := Int * 16 + HEX[str[i]];

Result := IntToStr(Int);
end;