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