changedectoanyformat.txt

来自「进制转换的一个很好的函数。可在16进制内自由转换」· 文本 代码 · 共 37 行

//Writen by Laytau in 10/21/02.

unit changeDecToAnyFormat;

interface

uses SysUtils;
//------------------------------------------------------------------------
//Place Functions Declare or Procedures called by other outer Modes;
//Function Name: changeDecToAny(nDecVal:integer;nParaFlag:integer):string;
//Functions:Change Dec to Any Form Number String;
//Parameters:    nDecVal  , integer,integer be to Change
//               nParaFlag, integer,Parameter show Dec Change Mode
//                          2:Banary   8:Octo   10:Dec  such as....
//Examples: Change 168(Dec) to Octo Number String:'250'
//                 6975(Dec) to Hex Number String:'1B3F' eg.
//------------------------------------------------------------------------
function changeDecToAny(nDecVal:integer;nParaFlag:integer):string;  //
implementation
const STRPARA: string='0123456789ABCDEF';// 进制转换字符串
//Functions or Procedures:
function changeDecToAny(nDecVal:integer;nParaFlag:integer):string;
var
    j:integer;
begin
    j:=nDecVal;
    Result:='';
    if nParaFlag > 16 then Exit;
    while j>=nParaFlag do
    begin
        Result:=copy(STRPARA,(j mod nParaFlag)+1,1)+Result;
        j:=trunc(j/nParaFlag);
    end;
    if j>0 then Result:=copy(STRPARA,j+1,1)+Result;
end;
end.