Delphi - Convertir binario a decimal

Hola alguien me puede decir como convierto una cadena binaria en un decimal ?
gracias.

Pues siento decirte que para eso no hay ninguna funcion en Delphi que lo haga, por lo tanto debes hacerla tu.

Una forma de hacerla es haciendo una funcion a la cual le pases la cadena de caracteres binaria. Luego coges dicha cadena y mediante un bucle la recorres del final al principio cogiendo los bits de 4 en 4 que da la casualidad que se puede representar mediante un numero hexadecimal:

0000 -> 0
0001 -> 1
0010 -> 2
...
1110 -> E
1111 -> F

Despues de haber obtenido esto, con la funciona StrToInt conviertes la cadena en valor hexadecimal a entero. Lleva trabajo de codificicion pero no es dificil. Quedaria algo asi:

10101001010111010111 -> A95D7
IntToStr('$' + 'A95D7');

Y ya te sale el valor decimal.

Espero que ter sirva. Un saludo.

Diego -> chairman

function BinToInt(const Bin: string): Integer; // Cardinal si la cadena es de 32 bits
var
i: Integer;
begin
Result:= 0;
for i:= 1 to Length(Bin) do
Result:= Result*2 + Ord(Bin[i]) - Ord('0');
end;

ninguna DE las 2 me a servido .
un ejemplo q lo q quiero es convertir 11001000000010010111101000000100
y el resultado seria
3356064260

GRACIAS DE TODOS MODOS
CHAO

Siento contradecirte pero he probado el ejemplo que has puesto y lo calcula perferctamente. Recuerda que como la cadena es de 32bits el resultado de la función debe ser Cardinal y no Integer.