{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Перевод числа из десятичной системы счисления в другие системы.
Функция переводит числа из десятичной системы счисления в системы с другим основанием. (Convert a decimal (base-10) number into any other base)
Зависимости: Нет
Автор: Прахожий
Copyright:   Прахожий
Дата: 8 июня 2009 г.
***************************************************************** }
function base(a,n:integer):String; var i,k:integer; begin result:=''; i:=1; while i<=a do begin if i*n>a then break; i:=i*n; end;
while i>0 do begin k:=a div i; a:=a mod i; i:=i div n; if (n>9) AND (k>9) then result:=result+char(k-10+ORD('A')) else result:=result+inttostr(k); end; end;
|