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]
