Hola elmago00
Cita:
Empezado por elmago00
...
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;
procedure TForm1.btnToHexClick(Sender: TObject);
begin
EditHex.Text:= IntToHex64(StrToInt64(EditDec.Text));
end;
procedure TForm1.btnToDecClick(Sender: TObject);
begin
EditDec.Text:= IntToStr(StrToInt64('$' + EditHex.Text));
end;
Saludos