{ Фунция представляет число Value в Base-ричной системе счисления,

  Base должно находиться в пределах [1..36] и представляется

  10-ю цифрами [0..9] и 26-ю буквами английского алфавита ['A'..'Z'] }

function Dec2X(const Value, Base: Cardinal): string;

  

  // Функция возвращает символ, соответствующий числу в N-ричной системе

  function GetChar(const N: Cardinal): Char;

  begin

    if N < 10 then

      // для систем счисления от 1 до 10

      Result := Char(N + Ord('0'))

    else

      // для систем счисления выше 10, но не больше 36 ([0..9] + ['A'..'Z'])

      Result := Char(N - 10 + Ord('A'));

  end;

 

var

  V, R: Cardinal;

begin

  Result := '';

  

  if Base <= 1 then

  begin

    // числа можно и в системе, состоящей из одного символа, представлять ;)

    if Base = 1 then

    begin

      // реализуем это

      SetLength(Result, Value);

      FillChar(Result[1], Value, Ord('0'));

      Exit;

    end else

      // а вот других систем счисления быть не может

      Abort;

  end else

    // ограничиваем представление систем счисления 10-ю цифрами и 26-ю буквами

    // английского алфавита

    if Base > 10 + (Ord('Z') + 1) - Ord('A') then

      Abort;

 

  // Выполняем преобразование в нужную систему виртуальным делением в столбик

  V := Value;

  repeat

    R := V mod Base;

    V := V div Base;

    Result := GetChar(R) + Result;

  until V < 2; // 2 - минимальная база,

               // то есть в любом случае когда-то "V div Base" будет равно 1

  if V <> 0 then Result := IntToStr(V) + Result;

end;

function Dec2X(const Value, Base: Cardinal): string;

 

  function GetChar(const N: Cardinal): Char;

  begin

    if N <= 10 then

      Result := Char(N + Ord('0'))

    else

      Result := Char(N - 10 + Ord('A'));

  end;

 

var

  V, R: Cardinal;

begin

  Result := '';

  V := Value;

  repeat

    R := V mod Base;

    V := V div Base;

    Result := GetChar(R) + Result;

  until V < 2;

  if V <> 0 then Result := IntToStr(V) + Result;

end;

function dec2bin(value: dword): string;

const

  bindigit = '01';

begin

  while value <> 0 do

  begin

    result := bindigit[succ(value and 1)]+result;

    value := value shr 1;

  end;

  if result='' then result := '0';

end;

function dec2hex(value: dword): string;

const

  hexdigit = '0123456789ABCDEF';

begin

  while value <> 0 do

  begin

    result := hexdigit[succ(value and $F)]+result;

    value := value shr 4;

  end;

  if result='' then result := '0';

end;

function dec2oct(value: dword): string;

const

  octdigit = '012345678';

begin

  while value <> 0 do

  begin

    result := hexdigit[succ(value and 7)]+result;

    value := value shr 3;

  end;

  if result='' then result := '0';

end;

function dec2bin(value: dword): string;

const

  bindigit = '01';

begin

  while value <> 0 do

  begin

    result := bindigit[succ(value and 1)]+result;

    value := value shr 1;

  end;

  if result='' then result := '0';

end;

function dec2hex(value: dword): string[8];

const

  hexdigit = '0123456789ABCDEF';

begin

  while value <> 0 do

  begin

    dec2hex := hexdigit[succ(value and $F)];

    value := value shr 4;

  end;

  if dec2hex = '' then dec2hex := '0';

end;