Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > [FAQ][Delphi]Перевод из десятичной системы счисления в другую

Автор: THandle 25.3.2008, 17:04

Код


type
  TBase = 2..36;
function Convert(n : integer; base : TBase) : string;
const
  cSymbols : array [0..35] of char = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
  bDigit : byte;
begin
  if n = 0 then
    result := '0'
  else
    result := '';
  while n > 0 do
    begin
      bDigit := n mod base;
      n := n div base;
      result := cSymbols[bDigit] + result;
    end;
end;

Пример вызова, по нажатию на кнопку:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Convert(5, 20));
end;

Автор: http://vingrad.ru/@Alix

Также стоит посмотреть:
http://forum.vingrad.ru/sources/topic-202375.html