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:[EMAIL PROTECTED] Em nome de Davi > Eduardo Borges Wall > Enviada em: terça-feira, 8 de janeiro de 2008 17:43 > Para: [email protected] > 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:[email protected] <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> > 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] > > >
