62진법의 간단한 실현을 했다
2541 단어 실현
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
Result := #0;
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 _Power(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) * _Power(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;
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
ReactRouter의 구현 방법즉, Hash 및 그 후의 문자는 서버에 전송되어 자원이나 데이터의 요청을 하지 않습니다.브라우저 동작을 지도하는 데 사용되며 서버에 효과가 없기 때문에 변경 URL 은 페이지를 다시 불러오지 않습니다.HTTP의 역...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.