Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   Pasar de Hexadecimal a decimal (https://www.clubdelphi.com/foros/showthread.php?t=31396)

chinchan 06-05-2006 13:34:19

Pasar de Hexadecimal a decimal
 
Sabéis de alguna instrucción que me pase el contenido de una variable, (y que se que este contenido es un numero hexadecimal) a un número decimal?. O sea lo contrario de IntToHex.Gracias

reevil 06-05-2006 14:23:23

http://www.clubdelphi.com/foros/show...&threadid=2303
en ese link hay informacion
al final de la pagina hay otros hilos que pueden ayudarte
usar el campo de busqueda de la pagina tambien da buenos resultados:D

saludos

Sotrono 06-05-2006 14:26:07

Hola, chequea el truco 181 de trucomania, esta en Delphi pero lo podes pasar fácilmente:

Código Delphi [-]
function HexToInt(const Value: String): Integer;
begin 
  Result := StrToInt('$' + Value);
end;

Ejemplo de llamada:
Código Delphi [-]
    Label1.Caption:=IntToStr( HexToInt('FF') );

Otra funcion:
Código Delphi [-]
function HextoInt(HexStr:string):integer;
const Hex : array['A'..'F'] of integer = (10,11,12,13,14,15);
var 
    i   : integer;
begin 
  Result:=0;
  for i := 1 to Length(HexStr) do 
    if HexStr[i] < 'A' then Result := Result * 16 + Ord(HexStr[i]) - 48
                       else Result := Result * 16 + Hex[HexStr[i]];
end;


Bytes..


La franja horaria es GMT +2. Ahora son las 12:21:00.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi