Довідник:одиниці вимірювання, система числення, час у різних країнах, Детальна інформація

RadixChar:='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';

ResultStr:= Copy( NumStr, 0, Length(NumStr));

v := 0;

UpperCase(ResultStr); // перевірка та задання початкових параметрів

for i := 1 to (Length(ResultStr)) do

begin

p := Pos(ResultStr[i] , RadixChar) - 1;

if ((p < 0) or (p >= Abs(Radix))) then begin

Exit; // Перевірка правильності вводу

end;

v := v * Abs(Radix) + p; // підрахунок числа в десятковому форматі

if (v < 0 ) then begin

ResultStr:= 'Помилка вводу значення перевищує 64^2 = '+IntToStr(High(Int64))+'(10)';

exit;

end;

end;

if v = 0 then begin

ResultStr := '0';

exit;

end else begin

i:=1;

repeat

SetLength(ResultStr,i);

ResultStr[i] := RadixChar[(v mod NewRadix)+1];

v := v div NewRadix;

Inc(i) // формування стрічки-числа з вихідною основою

until v = 0;

SetLength(ResultStr,i-1);

p := Length(ResultStr);

RadixChar:=Copy(ResultStr,0,p);