Olhe as funções que eu postei na lista. Elas estão mais simples. Sds.
>From: Joao Morais <[EMAIL PROTECTED]> >Reply-To: delphi-br@yahoogrupos.com.br >To: delphi-br@yahoogrupos.com.br >Subject: Re: [delphi-br] Funçao que tranforme Binario em INTEIRO >Date: Tue, 23 Jan 2007 12:47:29 -0200 > >Julio Cesar Quierati wrote: > > 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 ? > >Feito no improviso, vê se funciona: > >function BinToInt(const ABinStr: string): Integer; >var > I: Integer; >begin > Result := 0; > for I := 1 to Length(ABinStr) do > begin > Result := 2 * Result; > if ABinStr[I] = '1' then > Inc(Result) > else if ABinStr[I] <> '0' then > raise Exception.Create('não é binário'); > end; >end; > >-- >João Morais > > > > 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; > _________________________________________________________________ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br