Funcionou quase perfeito, eu só não consigo fechar o form agora, tenho que ir no delphi e fechar a aplicação, caso contrário, não fecha, fica tudo travado...
-----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Stock Enviada em: terça-feira, 30 de agosto de 2005 14:38 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Laço com uppercase e lowercase eu nao sei pra que precisa disso, mas veja se te ajuda: coloque num form um edit, um label e um botao e no onclik do botao o seguinte codigo,., procedure TForm1.BitBtn1Click(Sender: TObject); var i,a:integer; begin for i:=0 to 100 do begin 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(1000); end; end; end; ele ira fazer o que pede num intervalo de 1 segundo cada letra... [EMAIL PROTECTED] 600 modelos de sites profissionais - Imperdivel http://www.kitsites.com/index.php?ref=50 -------Original Message------- From: Eduardo Silva ® Date: 08/30/05 14:19:32 To: Grupo Delphi-br Subject: Laço com uppercase e lowercase Galera preciso fazer uma rotina (laço) de modo que ele passe letra por letra deixando a letra que ela esta passando no momento maiúscula e ao sair da letra ela fique minúscula, assim: Teste tEste teSte tesTe testE Teste tEste teSte tesTe testE E assim sucessivamente... Alguem tem alguma dica? ~\\|//~ -(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 \ ( ) / \_) (_/ -- <<<<< 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 __________ NOD32 1.1204 (20050829) Information __________ This message was checked by NOD32 antivirus system. http://www.nod32.com -- <<<<< 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
