Por
Saiyine
el 0000-00-00 00:00:00 - Secciones: - 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;
Otras entradas de la web que podrian interesarte:



YO YA NECESITO UNOS NUMEROS PARA CONVERTIRLOS DE BASE 10 A BASE 12
yo no quiero eso
eso no era lo q queria
...
es la vdd no se rian par de inutiles que no sirven para nada
respeten los numeros los colombianos somos amantes de ellos. . .
. . .
. . .
Página web ©2001-2011 Saiyine descargada en s, con 6094819 visitas en total, hoy (de un total de 0 previstas).
. . .