RE: [delphi-br] Loop

[Zote]

Se você já resolveu, blz.

Mas eu usaria assim:

 

procedure TForm1.Button1Click(Sender: TObject);

var

  i: integer;

begin

  //A Z

  for I := 65 to 90 do

Memo1.Lines.Add(char(i));

end;

 

Abraço

 

Zote

 

From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On
Behalf Of Rodrigo Magno
Sent: segunda-feira, 14 de maio de 2007 16:43
To: delphi-br@yahoogrupos.com.br
Cc: [EMAIL PROTECTED]
Subject: Res: [delphi-br] Loop

 

Mto obrigado.

Deu certo desta maneira.

Obs : e obrigado a todos que me ajudaram.

Abraços,


Rodrigo Magno 

- Mensagem original 
De: BandaLemuel [EMAIL PROTECTED]
mailto:bandalemuel%40yahoo.com.br 
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Enviadas: Segunda-feira, 14 de Maio de 2007 14:14:16
Assunto: Re: [delphi-br] Loop

procedure Loop ;
const
letras : String = 'ABCDEFGHIJKLMNOPQR STUVWXYZ' ;
var
x : Integer;
begin
for x:=1 to length(letras) do
begin
Close;
Sql.clear;
Sql.text:= 'SELECT * FROM TABELA WHERE CAMPO=:CAMPO;
ParamByName( 'CAMPO'). aastring := letras[x];
Open;
end;
end;

Espero ter ajudado

Wesley

- Original Message - 
From: Rodrigo Magno 
To: [EMAIL PROTECTED] os.com.br 
Sent: Monday, May 14, 2007 11:51 AM
Subject: [delphi-br] Loop

Amigos,

Como posso fazer um loop para percorrer todas as letras alfabeticas e assim
q mudar de letra passar para uma query em qual letra o loop esta como
parametro.

Atenciosamente,

Rodrigo

 _ _ _ _ __
Fale com seus amigos de graça com o novo Yahoo! Messenger 
http://br.messenger .yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

 - - - - - -

No virus found in this incoming message.
Checked by AVG Free Edition. 
Version: 7.5.467 / Virus Database: 269.7.0/803 - Release Date: 13/5/2007
12:17

[As partes desta mensagem que não continham texto foram removidas]

__
Fale com seus amigos de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Loop

[Rodrigo Magno]

Amigos,

Como posso fazer um loop para percorrer todas as letras alfabeticas e assim q 
mudar de letra passar para uma query em qual letra o loop esta como parametro.


Atenciosamente,
 
 
Rodrigo

__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Loop

[Márcio Ricardo]

Crie um vetor com a quantidade do alfabeto e faça o loop assim. A cada passagem 
pelo loop vc joga para o parametro e executa sua query. É isso q vc quer?

Márcio Ricardo.
  - Original Message - 
  From: Rodrigo Magno 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, May 14, 2007 11:51 AM
  Subject: [delphi-br] Loop


  Amigos,

  Como posso fazer um loop para percorrer todas as letras alfabeticas e assim q 
mudar de letra passar para uma query em qual letra o loop esta como parametro.

  Atenciosamente,


  Rodrigo

  __
  Fale com seus amigos de graça com o novo Yahoo! Messenger 
  http://br.messenger.yahoo.com/ 

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Loop

[BandaLemuel]

procedure Loop ;
const
   letras : String = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
  x:Integer;
begin
for x:=1 to length(letras) do
begin
Close;
Sql.clear;
Sql.text:= 'SELECT * FROM TABELA WHERE CAMPO=:CAMPO;
ParamByName('CAMPO').aastring := letras[x];
Open;
end;
end;


Espero ter ajudado

Wesley


  - Original Message - 
  From: Rodrigo Magno 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, May 14, 2007 11:51 AM
  Subject: [delphi-br] Loop


  Amigos,

  Como posso fazer um loop para percorrer todas as letras alfabeticas e assim q 
mudar de letra passar para uma query em qual letra o loop esta como parametro.

  Atenciosamente,


  Rodrigo

  __
  Fale com seus amigos de graça com o novo Yahoo! Messenger 
  http://br.messenger.yahoo.com/ 

  [As partes desta mensagem que não continham texto foram removidas]



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.467 / Virus Database: 269.7.0/803 - Release Date: 13/5/2007 12:17


[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Loop em um componente container

[Alisson Costa Resende]

Pessoal,

Estou tentando fazer um loop nos componentes que estão
dentro de um TPanel(for i := 0 to
Panel.ComponentCount-1 do). Mas o loop não pega nenhum
componentes. Verifiquei outros tipos de componentes,
mas sempre acontece a mesma coisa. Se dá certo com os
componentes que estão no form, por que não dá certo
com os componentes dentro de um container?





Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.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