Ver Mensaje Individual
  #4  
Antiguo 19-11-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola elmago00
Cita:
Empezado por elmago00 Ver Mensaje
...
El valor integer que utilizo es 256312456892254
...
Otra opción para la librería estándar Delphi:
Código Delphi [-]
...

function IntToHex64(Num: Int64): string;
var
  Resto: Int64;
begin
  Result:= '';
  while (Num > 0) do
  begin
    Resto := Num mod 16;
    Num   := Num div 16;
    Result:= IntToHex(Resto, 1) + Result
  end
end;

// Decimal a hexadecimal
procedure TForm1.btnToHexClick(Sender: TObject);
begin
  EditHex.Text:= IntToHex64(StrToInt64(EditDec.Text));
end;

// Hexadecimal a decimal
procedure TForm1.btnToDecClick(Sender: TObject);
begin
  EditDec.Text:= IntToStr(StrToInt64('$' + EditHex.Text));
end;



Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita