无限进制转换
(*//
标题 : 无限进制转换
说明 : 使用于数学领域进制之间相互转换
设计 :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 }
...[ 查看全文 ]