A função esta funcionando corretamente. function BinToDec(const BinValue: String): Integer; var lValue: String; begin Result := 0; lValue := BinValue; while Length(lValue) > 0 do begin Result := Result + ((Ord(lValue[1]) - 48) * (1 shl (Length(lValue) - 1))); System.Delete(lValue, 1, 1); end; end;
__________________________________________________ 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]