Olá,
Mais ou menos assim: coloque um tgauge na tela:
gProgresso: TGauge;
..
procedure blabla...
var
_numreg, _numregtot : Integer;
begin
gProgresso.Progress := 0;
_reg := 0;
_regtot := suatabela.RecordCount;
suatabela.disableControls;
suatabela.first;
while not suatabela.eof do
begin
...... Processamento
inc(_numreg);
gProgresso.Progress := round((_numreg*100)/_numregtot);
end;
suatabela.enablecontrols;
end;
Tente aí. Se achar que : suatabela.recordcount não irá funcionar (pois usas
query e não table) coloque outra query, execute ela antes com o seguinte sql
: SELECT COUNT(*) FROM SUATABELA para obter o número de registros. Agora tem
aqueles detalhes de performance né...se você tem clausúlas where pra usar
use nessa query também.
Espero que ajude.
Alexandre.
-----Mensagem original-----
De: Edivaldo David [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 18:37
Para: [EMAIL PROTECTED]
Assunto: Re: RES: [delphi-br] Query
Isso mesmo Walter, quem souber me ajude por favor.
Edivaldo David.
Walter Alves Chagas Junior <[EMAIL PROTECTED]> wrote:
Ele deve tar querendo é fazer um progressbar ou um Gauge
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200
> -----Mensagem original-----
> De: Rodrigo Americo [mailto:[EMAIL PROTECTED] Enviada em:
> quinta-feira, 9 de dezembro de 2004 08:00
> Para: [EMAIL PROTECTED]
> Assunto: Re: [delphi-br] Query
>
>
>
> Edivaldo,
>
> Não entendi sua dúvida. Poderia explicar?
>
> > Gostaria de fazer um termômetro durante o processamento de
> uma Query,
> > é possível?
>
> Att.
> --
> Rodrigo Américo Cunha de Souza
> [EMAIL PROTECTED]
> Skype: rodrigoamerico
> ICQ# 4270625
>
>
>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.289 / Virus Database: 265.5.0 - Release Date: 09/12/2004
--
<<<<< 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
