Convertir un numero en base 10 a una cadena con el numero en la base que quieras

Por Saiyine  el 0000-00-00 00:00:00 - Secciones:  DELPHI  - Enlace permanente: 468

Mmm no hay mucho que decir, aprovecha el indice de las cadenas para definir el caracter que corresponde a segun que base.

function DecimalABaseN(num : integer; base : byte) : string;
var
aux : string;
begin
        // Solo hasta la 'o' = como máximo base 20... suficiente ¿no?
        aux:='0123456789ABCDEFGHIO';
        result:='';
        while num>0 do
        begin
                result:=aux[(num mod base)+1]+result;
                num:=num div base;
        end;
end;

788 

Death Engel (2006-12-15 02:18:49)

1612 

Anonimo (2007-12-08 02:17:04) pero que pelotudes es esto no te explica nada es pura basurra !!!!!!!!!!!!

1613 

Saiyine (2007-12-08 06:39:41) Es un código tan sencillo que prácticamente se explica solo.

2469 

MARIA ENCARNACION (2008-07-05 01:11:15) YO YA NECESITO UNOS NUMEROS PARA CONVERTIRLOS DE BASE 10 A BASE 12