Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Convertir número Hexadecimal a Integer - Delphi
Lenguaje de programación Borland Delphi



Convertir número Hexadecimal a Integer:

function HexToInt(const Value: String): Integer;
 begin
   Result := StrToInt('$' + Value);
end;
Un ejemplo de llamada:
     Label1.Caption:=IntToStr( HexToInt('FF') );
Otra función:
 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;




Publicado el: 2003-11-07

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+