Para mim também, nunca tive esse tipo de problema.
Joao Morais escreveu:
>
>
> Davi Eduardo Borges Wall wrote:
> > Bom não custa tentar certo?
> >
> > Na verdade consegui colocar tudo numa função... não testei se
> reproduz o problema, mas ta aí
> >
> > PS: NÃO FIZ A ROTINA, não me perguntem por que o cara usou tipo WORD
>
> Testei em D5 e D7, com e sem IntToStr. Funfou que é uma beleza. Continuo
> verde de curiosidade para ver algo tão sinistro quanto andaram colocando
> nessa thread.
>
> --
> Joao Morais
>
> > function montaMascara(const aValor: string; aItemAdicionar: Char;
> aAdicionar_a_cada: Word): string;
> >
> > var
> >
> > aTotParcial,aTotal : Word;
> >
> > begin
> >
> > Result := '';
> >
> > aTotParcial := 1;
> >
> > for aTotal := Length(aValor) downto 1 do
> >
> > begin
> >
> > IntToStr(aTotal); //Bug delphi, fazer assim senao faz TO
> >
> >
> >
> > Result := aValor[aTotal] + Result;
> >
> > if aTotParcial = aAdicionar_a_cada then
> >
> > begin
> >
> > //Somente adicionar "aItemAdicionar" se nao acabou de varrer string...
> >
> > if aTotal > 1 then
> >
> > Result := aItemAdicionar + Result
> >
> > else
> >
> > Exit; //Acabou o tinha que fazer...
> >
> >
> >
> > aTotParcial := 1;
> >
> > end
> >
> > else
> >
> > begin
> >
> > inc(aTotParcial);
> >
> > Continue;
> >
> > end;
> >
> > end;
> >
> > end;
> >
> >
> >
> >
> >
> > De: [email protected]
> <mailto:delphi-br%40yahoogrupos.com.br>
> [mailto:[email protected]
> <mailto:delphi-br%40yahoogrupos.com.br>] Em nome de Davi Eduardo Borges Wall
> > Enviada em: terça-feira, 8 de janeiro de 2008 17:43
> > Para: [email protected]
> <mailto:delphi-br%40yahoogrupos.com.br>
> > Assunto: RES: [delphi-br] função for next
> >
> >
> >
> > Hahaha
> >
> > Eu ri muito quando li esse post do Joao.
> >
> > Infelizmente eu não conseguiria te disponibilizar nem se tentasse, a
> rotina é enorme e dependente de outros módulos.
> >
> > De: [email protected]
> <mailto:delphi-br%40yahoogrupos.com.br>
> <mailto:delphi-br%40yahoogrupos.com.br>
> [mailto:[email protected]
> <mailto:delphi-br%40yahoogrupos.com.br>
> <mailto:delphi-br%40yahoogrupos.com.br> ] Em nome de Joao Morais
> > Enviada em: terça-feira, 8 de janeiro de 2008 17:36
> > Para: [email protected]
> <mailto:delphi-br%40yahoogrupos.com.br>
> <mailto:delphi-br%40yahoogrupos.com.br>
> > Assunto: Re: [delphi-br] função for next
> >
> > Clovis iTelefonica wrote:
> >> Ja inicializei a variavel com x:=0 e continua o mesmo erro
> >> Mas obrigado assiim mesmo
> >
> > Cara, eu tô verde de curiosidade para conhecer esse erro. Por gentileza,
> > mande um .zip para os arquivos da lista, ou em pvt que eu publico para o
> > pessoal, para que eu possa ver o tal bug com os próprios olhos.
> >
> > --
> > Joao Morais
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
>
_______________________________________________________
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
