Delphi dicas

Progress bar em consulta sql ou tabela

Simples e eficiente. Funciona com query ou tabela.



Codigo:



Você pode primeiro executar uma consulta; por exe:

query.sql.add(' select * from tabela');



para associar um progress bar a esta consulta digite logo após :



/ / pb  é name de um TProgressBar adicionado no form



pb.Max:= query.RecordCount;

pb.Min:= 0;

pb.Position:= 0;

query.First;

while not query.Eof do

begin

        pb.Position:= pb.Position+1;

        query.Next;

end;



Nota: Se for realizar qualquer operação direto na tabela no lugar da 'query' coloque o nome da Tabela.