无限进制转换

半世花落a

半世花落a

2016-02-19 14:16

清醒时做事,糊涂时读书,大怒时睡觉,无聊时关注图老师为大家准备的精彩内容。下面为大家推荐无限进制转换,无聊中的都看过来。
 

  无限进制转换
  (*//

  标题 : 无限进制转换

  说明 : 使用于数学领域进制之间相互转换

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  设计 :Zswang

  日期 :2002-01-24

  支持 :wjhu111@21cn.com

  //*)

  
  ///////Begin Source

  const

    cScaleChar = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';

  
  function IntPower(Base, Exponent: Integer): Integer; {  返回 Base 的 Exponent 次方  }

  var

    I: Integer;

  begin

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

    Result := 1;

    for I := 1 to Exponent do

      Result := Result * Base;

  end; { IntPower }

  
  function IntToDigit(mNumber: Integer; mScale: Byte;

    mLength: Integer = 0): string;

  {  返回整数的进制表示 ;mScale 指定多少进制 ;mLength 指定长度 ,长度不足时向前补 0 }

  var

    I, J: Integer;

  begin

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

    Result := '';

    I := mNumber;

    while (I = mScale) and (mScale 1) do begin

      J := I mod mScale;

      I := I div mScale;

      Result := cScaleChar[J + 1] + Result;

    end;

    Result := cScaleChar[I + 1] + Result;

    for I := 1 to mLength - Length(Result) do Result := '0' + Result;

  end; { IntToDigit }

  
  function DigitToInt(mDigit: string; mScale: Byte): Integer;

  {  返回进制表示转换成整数 ;mScale 指定多少进制  }

  var

    I: Byte;

    L: Integer;

  begin

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

    Result := 0;

    mDigit := UpperCase(mDigit);

    L := Length(mDigit);

    for I := 1 to L do

      Result := Result + (Pos(mDigit[L - I + 1], cScaleChar) - 1) *

        IntPower(mScale, I - 1);

  end; { DigitToInt }

  ///////End Source

  
  ///////Begin Demo

  procedure TForm1.Button1Click(Sender: TObject);

  begin

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

    Edit1.Text := IntToDigit(StrToIntDef(Edit2.Text, 0), 16);

  end;

  
  procedure TForm1.Button2Click(Sender: TObject);

  begin

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

    Edit2.Text := IntToStr(DigitToInt(Edit1.Text, 16));

  end;

  ///////End Demo
  

展开更多 50%)
分享

猜你喜欢

无限进制转换

编程语言 网络编程
无限进制转换

各种进制转换方法

电脑入门
各种进制转换方法

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

浅议Oracle中的进制转换

SQLServer
浅议Oracle中的进制转换

VC++ 中实现进制2进制10进制16进制的相互转换

编程语言 网络编程
VC++ 中实现进制2进制10进制16进制的相互转换

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

IntToHex(10-16进制的转换)

编程语言 网络编程
IntToHex(10-16进制的转换)

IntToBin(2-16进制转换函数)

编程语言 网络编程
IntToBin(2-16进制转换函数)

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

动态建表(示例)

动态建表(示例)

JS、CSS 简单的控制层的现实与隐藏

JS、CSS 简单的控制层的现实与隐藏
下拉加载更多内容 ↓