62 进制须要的字符及次序: 0..9 a..z A..Z; 只实现了 62 进制字符串与整数的互换.

---

unit H62;



interface



uses SysUtils;



function IntToH62（N: UInt64）: string; //整数转到 62 进制字符串

function H62ToInt（S: string）: UInt64; //62 进制字符串转到整数



implementation



function _C2B（C: Char）: Byte; inline;

begin

  Result := 0;

  if CharInSet（C， [0..9]） then Exit（Byte（C） - 48）;      //0..9

  if CharInSet（C， [a..z]） then Exit（Byte（C） - 97 + 10）; //a..z

  if CharInSet（C， [A..Z]） then Exit（Byte（C） - 65 + 36）; //A..Z

end;



function _B2C（B: Byte）: Char; inline;

begin

  if B <= 9 then Exit（Char（B + 48））;                       //0..9

  if （B >= 10） and （B <= 35） then Exit（Char（B - 10 + 97））; //a..z

  if （B >= 36） and （B <= 61） then Exit（Char（B - 36 + 65））; //A..Z

end;



function _PowerN（B，P: Cardinal）: UInt64; inline;

var

  i: Integer;

begin

  Result := B;

  for i := 1 to P-1 do Result := Result  B;

end;



function _C2V（C: Char; N: Byte）: UInt64; inline;

begin

  Result := 0;

  if （N = 0） then Exit（_C2B（C））;

  if （N > 0） then Result := _C2B（C）  _PowerN（62， N）;

end;



function IntToH62（N: UInt64）: string;

var

  C: Char;

begin

  Result := ;

  repeat

    C := _B2C（N mod 62）;

    Result := C + Result;

    N := N div 62;

  until （N = 0）;

end;



function H62ToInt（S: string）: UInt64;

var

  C: Char;

  L，N，I: Cardinal;

begin

  Result := 0;

  L := Length（S）;

  if L > 11 then raise Exception.Create（Err: H62ToInt）; //不克不及多于 11 位

  for I := L downto 1 do

  begin

    C := S[I];

    N := L - I;

    Result := Result + _C2V（C， N）;

  end;

end;



end.

---

//测试:

uses H62;



procedure TForm1.FormCreate（Sender: TObject）;

var

  n: Cardinal;

  I: UInt64;

  str: string;

begin

  str := IntToH62（MaxInt）;  // 2lkCB1

  n := H62ToInt（str）;       // 2147483647



  I := 9999999999999999999; // 19 位

  str := IntToH62（I）;       // bUI6zOLZTrh



  str := ZZZZZZZZZZZ;     // 最大值

  I := H62ToInt（str）;       // 15143072536417990655; 比 UInt64 的最大值（18446744073709551615）小一点， 比 Int64 的最大值（9223372036854775807）大一点

end;

---

读书，不要想着实用，更不要有功利心。读书只为了自身的修养。邂逅一本好书如同邂逅一位知己，邂逅一个完美之人。有时心生敬意，有时怦然心动。仿佛你心底埋藏多年的话，作者替你说了出来，你们在时光深处倾心相遇的一瞬间，情投意合，心旷神怡。