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;
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: [email protected]
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: [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]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
