Olá, pessoal.
estou precisando de uma função para transformar binario em inteiro, utilizei
estas duas funções abaixo mas nao estao retornando os valores corretos, alguem
sabe de outra que funcione ou o que esta ocorrendo com essas funções ?
Function BinToInt(valor: string):longint;
var i, tamanho, np : Integer;
Begin
Result :=0;
tamanho := Length(valor);
For i:=0 to Tamanho-1 do
Begin
NP := strtoint(valor[tamanho-1]);
Result := Result + NP *Trunc(Power(2,i));
end;
end;
Function bintoint( valor:string): integer;
var i, tamanho : integer;
begin
result :=0;
tamanho:= length(valor);
for i:= tamanho downto 0 do
begin
if copy(valor,i,1)='1' then
begin
result := result +(1 shl i);
end;
end;
end;
no mais Grato,
Julio Quierati
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
