盒子论坛 v2.1

(*//
标题:无限进制转换
说明:使用于数学领域进制之间相互转换
设计:Zswang
日期:2002-01-24
支持:wjhu111@21cn.com
//*)
///////Begin Source
const
  cScaleChar = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
function IntPower(Base, Exponent: Integer): Integer; { 返回Base的Exponent次方 }
var
  I: Integer;
begin
  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
  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
  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
//Demo
  //将整数16转成16进制                       |?               |
  ShowMessage(IntToDigit(StrToIntDef('16', 0), 16));
  //将十六进制的10转成整数
  ShowMessage(IntToStr(DigitToInt('16', 10)));

//EndDemo
----------------------------------------------

充电..........

作者：

xjsh (『无绝』)	★☆☆☆☆	-
	普通会员

2004/3/4 10:39:47

2楼：

学习！
----------------------------------------------
         ╭の╮┏┯┓┏┯┓ ┏┯┓┏┯┓  ╬
          ╲╱ ┠爱┨┠你┨ ┠不┨┠变┨╭║╮
         ┗戀┛┗┷┛┗┷┛ ┗┷┛┗┷┛ ╲╱

作者：

minche (异杰)	★☆☆☆☆	-
	盒子活跃会员

2004/3/4 10:46:17

3楼：

用IntToHex函数
----------------------------------------------
-和大家一起学习,一起进步！！！

作者：

shanghl2002 (阿尚)	★☆☆☆☆	-
	盒子活跃会员

2004/3/4 11:22:58

4楼：

format('%X',[]);
----------------------------------------------
-

作者：

hotyei (青出于蓝)	★☆☆☆☆	-
	盒子活跃会员

2004/3/4 21:36:57

5楼：

同意shanghl2002 (阿尚)和 minche (Minche)
，Borland已经为我们准备好了。
----------------------------------------------
米软科技有限公司

http://www.szmesoft.com

信息

登陆以后才能回复