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 idea
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;
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;
Abr
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
4 matches
Mail list logo