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]
