Clovis iTelefonica wrote:
> if TCircButton(Sender).Caption='1' then
> begin
> Randomize;
> i:= 0;
> for i := 1 to 100 do // aqui ele começa no 100 e vem para o 1
> begin
> ran := ran+ chr(strtoint(copy(currtostr(random),4,3)));
> end;
Nem fiz o teste, você sequer está usando a variável dentro do laço para
poder se certificar disto.
--
Joao Morais
> edit1.text := ran;
> end
> else if TCircButton(Sender).Caption='2' then
> begin
> ShowMessage('Botão 2');
> end
> else if TCircButton(Sender).Caption='3' then
> begin
> ShowMessage('Botão 3');
> end
> else if TCircButton(Sender).Caption='4' then
> begin
> end;
>
>
>
>
> Clovis Machado Ferreira
> Que o Grande Arquiteto do Universo nos Ampare
> Msn->[EMAIL PROTECTED]
> ----- Original Message -----
> From: Joao Morais
> To: delphi-br@yahoogrupos.com.br
> Sent: Tuesday, January 08, 2008 7:16 PM
> Subject: Re: RES: [delphi-br] função for next
>
>
> 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: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de
> Davi Eduardo Borges Wall
> > Enviada em: terça-feira, 8 de janeiro de 2008 17:43
> > Para: delphi-br@yahoogrupos.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: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> [mailto:delphi-br@yahoogrupos.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: delphi-br@yahoogrupos.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]
> >
> >
> >
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
