无限进制转换
2006-02-04 13:54:11 来源:WEB开发网无限进制转换
(*//
标题 : 无限进制转换
说明 : 使用于数学领域进制之间相互转换
设计 :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
///////Begin Demo
PRocedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := IntToDigit(StrToIntDef(Edit2.Text, 0), 16);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit2.Text := IntToStr(DigitToInt(Edit1.Text, 16));
end;
///////End Demo
- ››无限分类数据格式化成树
- ››无限敬仰!美图看看“犀利哥”
- ››转换工具介绍
- ››转换为RTF格式恢复Word文档
- ››进制的转换
- ››无限级树数据库版
- ››转换大写中文数字
- ››转换 SQL数据库时的疑难问题
- ››无限活动日志策略的介绍、配置、实用
- ››无限级分类的非递归实现(存储过程版)
- ››转换长短文件名
- ››无限进制转换
更多精彩
赞助商链接