Curiosidade: pra que vc quer esta rotina? Abraço
----- Original Message ----- From: "Eduardo Silva ®" <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Tuesday, August 30, 2005 4:44 PM Subject: RES: [delphi-br] Re: Laço com uppercase e lowercase e tem mais outro problema, eu quero que isso fique se repetindo indefinidamente.....se eu deixar o micro ligado por dias eu não quero que a rotina pare depois de 100 vezes... -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Leandro Enviada em: terça-feira, 30 de agosto de 2005 16:29 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Laço com uppercase e lowercase coloque: Application.ProcessMessages; antes de iniciar o laço. Leandro ----- Original Message ----- From: "Eduardo Silva ®" <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Tuesday, August 30, 2005 3:30 PM Subject: RES: [delphi-br] Re: Laço com uppercase e lowercase > 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 > > > > > > > > -- <<<<< 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE ---------------------------------------------------------------------------- -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __________ NOD32 1.1204 (20050829) Information __________ This message was checked by NOD32 antivirus system. http://www.nod32.com [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 -- <<<<< 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
