Número gigantes a Hexadecimal y visceversa

[ecfisa]

Empezado por mightydragonlor

Alguien tiene algún código para pasar un entero a hexadecimal, que no sea el Format(), si es así os agradecería mucho.

Hola.

Esa función ya existe en Delphi, y es IntToHex.

Ejemplo de uso:

Código Delphi [-]
   ShowMessage(IntToHex(65535,4));

Saludos.

[[mightydragonlor]]

hola ecfisa, gracias por tu respuesta pero no es lo que necesito, necesito mas bien el algoritmo, para poder adaptarlo al TBCD, aunque he buscado bastante en google no he podido encontrar nada xD

[ecfisa]

Hola.

Fijate si te sirve de este modo:

Código Delphi [-]
function EnteroAHexadecimal(Num: Int64): string;
const
  B16: array[0..15] of Char = ('0','1','2','3','4','5','6','7','8','9',
        'A','B','C','D','E','F');
var
  Resto: Int64;
begin
  Result:= '';
  while (Num > 0) do
  begin
    Resto:= Num mod 16;
    Num:= Num div 16;
    Result:= B16[Resto] + Result
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
var
  Numero: Int64;
begin
  Numero:= 12517;
  ShowMessage(EnteroAHexadecimal(Numero));
  ...

Saludos.

Edito: Pero te vas a topar con la limitante que hablábamos con LoPiTaL más arriba...

[[mightydragonlor]]

Muchas gracias a todos, les cuento que alfín pude convertir el decimal gigante a hexadecimal, les dejo el código:

Código Delphi [-]
{Convierte un TBCD en un hexadecimal}
function BCDToHex(BCD: TBCD): string;
const
  B16: array[0..15] of Char = ('0','1','2','3','4','5','6','7','8','9',
        'A','B','C','D','E','F');
var
  BcdEx,DivBcd: TBCD;
  ModInt,SepDec: Integer;
begin
  Result:= '';
  while (Bcd > 0) do
  begin
   BCDDivide(Bcd,16,BcdEx);
   SepDec:=Pos(DecimalSeparator,BCDToStr(BcdEx))-1;
   If SepDec > 0 then begin
     DivBcd:=StrToBCD(Copy(BCDToStr(BcdEx),0,SepDec));
   end else begin
     DivBcd:=BcdEx;
   End;
   ModInt:=StrToInt(BCDToStr(Bcd - (16 * DivBcd)));
   Result:= B16[ModInt] + Result;
   BCD:=DivBCD;
  end;
end;

Y adicionalmente les dejo el proyecto de ejemplo en Lazarus, está comprimido en 7z así tenga extensión Zip, saludos y muchas gracias.