Esta dando erro nesta linha
aTexto[i] := uppercase(aTexto[i]);
[Error] Unit1.pas(36): Incompatible types: 'Char' and 'String'
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de José Henrique
Enviada em: terça-feira, 30 de agosto de 2005 14:25
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Laço com uppercase e lowercase
não sei se tá certo, pois fiz direto no email.
Mas com certeza a "lógica" é essa e ainda tem como otimizar...
procedure maluca(aTexto: string);
var
i: integer;
begin
for i := 1 to length(aTexto) do
begin
aTexto := lower(aTexto);
aTexto[i] := upper(aTexto[i]);
showMessage(aTexto);
end;
Abraço
On 8/30/05, Eduardo Silva (r) <[EMAIL PROTECTED]> wrote:
>
> 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----------------( )---( )---------------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]
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
<*> 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
