Segundo o seu codigo: a rotina sera executada a cada 2 segundo... certo? para que nao houvesse parada no final da palavra vc teria que ter 20 letras nao palavra que ta sofrendo a mudança, haja visto que:
ele muda a letra a cada decimo de segundo, por isso ta rapido; ele executa a rotina a cada 2 segundo... uma palavra com 10 letras ocasionaria um tempo de 1 segundo para ser percorrida o que faria esperar um outro segundo para uma nova execução... acho que seu problema esta por ai [EMAIL PROTECTED] 600 modelos de sites profissionais - Imperdivel http://www.kitsites.com/index.php?ref=50 -------Original Message------- From: Eduardo Silva ® Date: 08/31/05 13:37:35 To: Grupo Delphi-br Subject: Laço com uppercase e lowercase Galera, com a rotina abaixo eu quase conegui chegar no que eu quero. Coloquei um timer, interval = 2000. O problema é que ele ta muito rápido e fica parado muito tempo no final da ultima letra. Algupém tem uma saída mais "elegante"? Obs: testei várias configurações e não cheguei num número ideal.....por isso, não sei se a solução seria via programação ou ajuste de números mesmo. procedure TForm1.Timer1Timer(Sender: TObject); var i, a : integer; begin application.ProcessMessages; for a := 1 to length(edit1.text) do begin label1.Caption := copy(edit1.Text,1,a-1) + uppercase(copy(edit1.text,a,1)) + copy(edit1.text,a+1,length(edit1.text)-(a-1)); application.ProcessMessages; sleep(100); end; end; ~\\|//~ -(o o)- o--------------oOOOo--(_)--oOOOo-------------o | | | Eduardo de Almeida Silva | | Câmara Municipal de Lençóis Paulista | | [EMAIL PROTECTED] - (14)3263-0326 | | | | .oooO Oooo. | o----------------( )---( )---------------o \ ( ) / \_) (_/ -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
