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

Nick


Contraseña


Nuevo usuario


English
Convertir binario a entero - Delphi
Lenguaje de programación Borland Delphi



Para convertir un número Binario a Entero:

function BinToInt(Value: String): Integer;
 var
   i,Size: Integer;
 begin
   Result:=0;
   Size:=Length(Value);
   for i:=Size downto 1 do
     if Value[i]='1' then Result:=Result+(1 shl (Size-i));
 end;
Ejemplo de llamada:
   Label1.Caption:=IntToStr( BinToInt('00000101') );




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+