binario >> ddecimal

[scorpio 7]

olhem esse codigo

numero_s=txtNumOri->Text;tam=numero_s.Length();//pega o tamanho do numerofor(i=1;i<=tam;i++){      dec+=int(numero_s[i])*pow(2,tam-i) ;}

 

 

isso dai é pra converte binario para decimal...mas nao ta funcionando....

ele nao faz a conversao corretamente....( 1010 = 10,,, 1010 http://forum.imasters.com.br/public/style_emoticons/default/seta.gif 730 <segundo o programa da isso)

 

ja verifiquei os valores que o codigo ta puxando, e ta tudo certo,

 

sera que alguem poderia me ajudar???

 

 

 

agradeço

[scorpio 7]

dec+=int(numero_s)*pow(2,tam-i) ;

achei o erro...

é StrToInt(numero_s) ao inves de int(numero_s)