备案控制台
探索云世界
开发者社区 云计算 文章 正文

delphi 进制转换

2017-11-15 901
版权
版权声明：
本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《 阿里云开发者社区用户服务协议》和 《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写 侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
简介：

----二进制到16进制

function BinaryToHex(strBinary: string): string;
var
  vD: Byte;
  i: integer;
  vHextStr: String;
  vP: PChar;
  vLen: integer;
begin
  vLen := length(strBinary);
  if vLen mod 4 > 0 then
  begin
    SetLength(vHextStr, vLen div 4 + 1);
    vLen := vLen div 4 + 1;
  end
  else
  begin
    SetLength(vHextStr, vLen div 4);
    vLen := vLen div 4;
  end;

  // 初始化
  vD := 0;
  vP := PChar(strBinary) + length(strBinary) - 1;
  i := 0; // 开始计数

  while vP^ <> #0 do
  begin
    if vP^ = '1' then
    begin
      case i of
        0:
          vD := vD + 1;
        1:
          vD := vD + 2;
        2:
          vD := vD + 4;
        3:
          vD := vD + 8;
      end;
    end;

    Dec(vP);
    Inc(i);
    if i = 4 then
    begin
      case vD of
        0 .. 9:
          vHextStr[vLen] := Chr(vD + $30);
        10 .. 15:
          vHextStr[vLen] := Chr(vD - 10 + $41);
      end;
      Dec(vLen);
      i := 0;
      vD := 0;
    end;
  end;

  if i > 0 then
  begin
    case vD of
      0 .. 9:
        vHextStr[vLen] := Chr(vD + $30);
      10 .. 15:
        vHextStr[vLen] := Chr(vD + $41);
    end;
  end;

  Result := vHextStr;
end;


---16进制到二进制

function HextoBinary(hex: string): string;

const

  BOX: array [0 .. 15] of string =

    ('0000', '0001', '0010', '0011',

    '0100', '0101', '0110', '0111',

    '1000', '1001', '1010', '1011',

    '1100', '1101', '1110', '1111');

var

  i: integer;

begin

  for i := length(hex) downto 1 do

    Result := BOX[StrToInt('$' + hex[i])] + Result;

end;


-----十六进制到10进制

function HexToInt2(hex: AnsiString): integer;
var
  i: integer;
  function Ncf(num, f: integer): integer;
  var
    i: integer;
  begin
    Result := 1;
    if f = 0 then
      exit;
    for i := 1 to f do
      Result := Result * num;
  end;
  function HexCharToInt(HexToken: Ansichar): integer;
  begin
    if Ord(HexToken) > 97 then
      HexToken := Ansichar(Chr(Ord(HexToken) - 32));
    Result := 0;
    if (Ord(HexToken) > 47) and (Ord(HexToken) < 58) then { chars 0....9 }
      Result := Ord(HexToken) - 48
    else if (Ord(HexToken) > 64) and (Ord(HexToken) < 71) then { chars A....F }
      Result := Ord(HexToken) - 55;
  end;

var
  a16int: integer;
  ancf: integer;
begin
  Result := 0;
  hex := ansiuppercase(trim(hex));
  if hex = '' then
    exit;
  for i := 1 to length(hex) do
  // result := result + HexCharToInt(hex[i]) * ncf(16, length(hex) - i);
  begin
    a16int := HexCharToInt(hex[i]);
    ancf := Ncf(16, length(hex) - i);
    Result := Result + a16int * ancf;
  end;
end;

--------------------------------------------------------------------------------

delphi中有直接把10进制转换成16进制的函数 ：

  function IntToHex(Value: Integer; Digits: Integer): string;
overload;

function IntToHex(Value: Int64; Digits: Integer): string; overload;

unit uConversion;

interface

uses
  SysUtils, Math;

type
  TConversion = class
  public
    // 10 进制 to 2,8,16 进制
    function inttoBitStr(intstr: string): string;
    function IntToHexStr(intstr: string): String; // 10 = 2
    function IntToOStr(intstr: string): string;

    // 2进制 to 10,8,16 进制
    function BittoInt(BitStr: String): LongInt; // 2 = 10
    function BitStrToHextStr(const BitStr: String): String; // 2 = 16
    function BitStrToOStr(const BitStr: String): String; // 2 = 8

    // 16 > 10 2   8 进制
    function HextoIntStr(HexStr: String): string;
    function HexToBitStr(HexStr: string): string;
    function HexToOStr(HexStr: string): string;

    // 八进制转换成二进制字符串
    function OtoBitStr(O: string): string;
    function OtoIntStr(O: string): string;
    function OtoHexStr(O: string): string;
  end;

var
  TC: TConversion;

implementation

{ TConversion }
// 2 进制 to 10 进制

function TConversion.BittoInt(BitStr: String): LongInt;
var
  i, Size: Integer;
begin
  Result := 0;
  Size := Length(BitStr);
  for i := Size downto 1 do
  begin
    // 例如 1010
    if Copy(BitStr, i, 1) = '1' then
      Result := Result + (1 shl (Size - i));
  end;
  // 第二种方法
  // 二进制转换为十进制 start
  {
    VAR
    str : String;
    Int : Integer;
    i : integer;

    Str := UpperCase(Edit1.Text);
    Int := 0;
    FOR i := 1 TO Length(str) DO
    Int := Int * 2 + ORD(str[i]) - 48;
    Edit2.Text:=IntToStr(int);
  }
  // 二进制转换为十进制 end；
  // 第三中方法
  {
    function hextoint(s: string): Double;
    begin
    while Length(s) <>0 do
    begin              //2^(长度-1)次方
    if s[1]='1' then Result:=Result+power(2,Length(s)-1);
    s:=Copy(s,2,Length(s));
    end
    end;
  }
end;

function TConversion.BitStrToHextStr(const BitStr: String): String;
var
  vD: Byte;
  i: Integer;
  vHextStr: String;
  vP: PChar;
  vLen: Integer;
begin
  vLen := Length(BitStr);
  if vLen mod 4 > 0 then
  begin
    SetLength(vHextStr, vLen div 4 + 1);
    vLen := vLen div 4 + 1;
  end
  else
  begin
    SetLength(vHextStr, vLen div 4);
    vLen := vLen div 4;
  end;

  // 初始化
  vD := 0;
  vP := PChar(BitStr) + Length(BitStr) - 1;
  i := 0; // 开始计数

  while vP^ <> #0 do
  begin
    if vP^ = '1' then
    begin
      case i of
        0:
          vD := vD + 1;
        1:
          vD := vD + 2;
        2:
          vD := vD + 4;
        3:
          vD := vD + 8;
      end;
    end;

    Dec(vP);
    Inc(i);
    if i = 4 then
    begin
      case vD of
        0 .. 9:
          vHextStr[vLen] := Chr(vD + $30);
        10 .. 15:
          vHextStr[vLen] := Chr(vD - 10 + $41);
      end;
      Dec(vLen);
      i := 0;
      vD := 0;
    end;
  end;

  if i > 0 then
  begin
    case vD of
      0 .. 9:
        vHextStr[vLen] := Chr(vD + $30);
      10 .. 15:
        vHextStr[vLen] := Chr(vD + $41);
    end;
  end;

  Result := vHextStr;
end;

function TConversion.BitStrToOStr(const BitStr: String): String;
var
  vD: Byte;
  i: Integer;
  vHextStr: String;
  vP: PChar;
  vLen: Integer;
begin
  vLen := Length(BitStr);
  if vLen mod 3 > 0 then
  begin
    SetLength(vHextStr, vLen div 3 + 1);
    vLen := vLen div 3 + 1;
  end
  else
  begin
    SetLength(vHextStr, vLen div 3);
    vLen := vLen div 3;
  end;

  // 初始化
  vD := 0;
  vP := PChar(BitStr) + Length(BitStr) - 1;
  i := 0; // 开始计数

  while vP^ <> #0 do
  begin
    if vP^ = '1' then
    begin
      case i of
        0:
          vD := vD + 1;
        1:
          vD := vD + 2;
        2:
          vD := vD + 4;
      end;
    end;

    Dec(vP);
    Inc(i);
    if i = 3 then
    begin
      case vD of
        0 .. 9:
          vHextStr[vLen] := Chr(vD + $30);
      end;
      Dec(vLen);
      i := 0;
      vD := 0;
    end;
  end;

  if i > 0 then
  begin
    case vD of
      0 .. 9:
        vHextStr[vLen] := Chr(vD + $30);
    end;
  end;

  Result := vHextStr;
end;

function TConversion.HexToBitStr(HexStr: string): string;
const
  cBitStrings: array [0 .. 15] of string = ('0000', '0001', '0010', '0011',
    '0100', '0101', '0110', '0111', '1000', '1001', '1010', '1011', '1100',
    '1101', '1110', '1111');
var
  i: Integer;
begin
  Result := '';
  for i := 1 to Length(HexStr) do
    Result := Result + cBitStrings[StrToIntDef('$' + HexStr[i], 0)];
  while Pos('0', Result) = 1 do
    Delete(Result, 1, 1);
end; { HexToBit }

function TConversion.HextoIntStr(HexStr: String): string;
begin
  Result := IntToStr(StrToInt('$' + (HexStr)));
end;

function TConversion.HexToOStr(HexStr: string): string;
begin
  Result := BitStrToOStr(HexToBitStr(HexStr));
end;

function TConversion.inttoBitStr(intstr: string): string;
var
  i: Integer;
begin
  i := StrToInt(intstr);
  while i <> 0 do
  begin // i mod 2取模,再使用format格式化
    Result := Format('%d' + Result, [i mod 2]);
    i := i div 2
  end
end;
// 10进制装换 2进制 第二种方法
{ function TConversion.IntToBitStr(Value, Size: Integer): String;
  var
  i: Integer;
  begin
  Result:='';
  for i:=Size-1 downto 0 do begin
  if Value and (1 shl i)<>0 then begin
  Result:=Result+'1';
  end else begin
  Result:=Result+'0';
  end;
  end;
  end; }

function TConversion.IntToHexStr(intstr: string): String;
begin
  Result := inttoBitStr(intstr);
end;

function TConversion.IntToOStr(intstr: string): string;
begin
  Result := BitStrToHextStr(inttoBitStr(intstr));
end;

function TConversion.OtoBitStr(O: string): string;
const
  cBitStrings: array [0 .. 7] of string = ('000', '001', '010', '011', '100',
    '101', '110', '111');
var
  i, j: Integer;
begin
  Result := '';
  for i := 1 to Length(O) do
  begin
    j := StrToInt(O[i]);
    Result := Result + cBitStrings[j];
  end;
  while Pos('0', Result) = 1 do
    Delete(Result, 1, 1);
end;

function TConversion.OtoHexStr(O: string): string;
begin
  Result := BitStrToHextStr(OtoBitStr(O));
end;

function TConversion.OtoIntStr(O: string): string;
begin
  Result := OtoIntStr(OtoBitStr(O));
end;

end.













本文转自鹅倌51CTO博客，原文链接： http://blog.51cto.com/kaixinbuliao/1937471，如需转载请自行联系原作者


技术小甜
目录
相关文章
筠.
|
1月前
|
存储 C语言
C语言实现二进制到十进制
C语言实现二进制到十进制
筠.
13 0
₍ᐢ..ᐢ₎王
|
1月前
|
算法 数据处理 C语言
这么好用的二进制转十进制教程，你不会还不知道吧？
这么好用的二进制转十进制教程，你不会还不知道吧？
₍ᐢ..ᐢ₎王
36 0
从未止步..
|
6月前
|
C语言
C语言之十进制转化为十六进制
C语言之十进制转化为十六进制
从未止步..
92 0
Lotay_天天
|
6月前
|
Python
python 十进制转16进制：Python十进制转换为16进制的方法
python 十进制转16进制：Python十进制转换为16进制的方法
Lotay_天天
269 0
jerrywangsap
|
1月前
|
存储
ABAP 代码从十进制转二进制的方法
ABAP 代码从十进制转二进制的方法
jerrywangsap
21 0
筠.
|
1月前
|
存储 C语言
C语言十进制转二进制
C语言十进制转二进制
筠.
25 0
₍ᐢ..ᐢ₎王
|
1月前
|
存储 C语言
十进制转二进制，C语言的必备技能
十进制转二进制，C语言的必备技能
₍ᐢ..ᐢ₎王
23 0
我睡觉的时候不困
|
8月前
16进制与10进制转换(Qt)
16进制与10进制转换(Qt)
我睡觉的时候不困
64 0
生产队的驴.
|
4月前
|
C#
C# 高级语言的 “进制转换”
C# 高级语言的 “进制转换”
生产队的驴.
23 0
陈大大陈
|
9月前
|
测试技术
经典例题：十六进制转换十进制详解 适合初学者
经典例题：十六进制转换十进制详解 适合初学者
陈大大陈
249 0

热门文章

最新文章

  • 1
    理解事务的4种隔离级别
  • 2
    疑犯追踪第一季/全集Person Of Interest迅雷下载
  • 3
    简单实用的数据建模工具PDManer
  • 4
    详细讲解！Canal+Kafka实现MySQL与Redis数据同步！
  • 5
    71.7. Script for automatic startup on boot
  • 6
    关于Oracle客户端显示乱码问题
  • 7
    PHPWAMP站点管理的“域名模式”和“端口模式”详解、均支持自定义
  • 8
    jsHelper
  • 9
    学校里学不到的东西(一)
  • 10
    Python 3 教程一:入门
  • 1
    Python的装饰器
    30
  • 2
    R语言用潜类别混合效应模型(Latent Class Mixed Model ,LCMM)分析老年痴呆年龄数据
    20
  • 3
    数据分享|R语言用logistic逻辑回归和AFRIMA、ARIMA时间序列模型预测世界人口
    14
  • 4
    【视频】马尔可夫链蒙特卡罗方法MCMC原理与R语言实现|数据分享（下）
    18
  • 5
    【视频】马尔可夫链蒙特卡罗方法MCMC原理与R语言实现|数据分享（上）
    24
  • 6
    数据分享|数据探索电商平台用户行为流失可视化分析
    25
  • 7
    电商平台数据可视化分析网红零食销量
    17
  • 8
    R语言线性回归模型拟合诊断异常值分析家庭燃气消耗量和卡路里实例带自测题
    15
  • 9
    数据分享|R语言GLM广义线性模型：逻辑回归、泊松回归拟合小鼠临床试验数据（剂量和反应）示例和自测题
    12
  • 10
    数据分享|R语言逻辑回归、线性判别分析LDA、GAM、MARS、KNN、QDA、决策树、随机森林、SVM分类葡萄酒交叉验证ROC（下）
    15

    • 相关电子书

    更多
  • 低代码开发师（初级）实战教程
  • 冬季实战营第三期：MySQL数据库进阶实战
  • 阿里巴巴DevOps 最佳实践手册
    • 下一篇
    部署LAMP环境（Alibaba Cloud Linux 3）