(Resolvido) progress bar ao iniciar programa

[flavioavilela]

eu deixei um tópico aqui a respeito de mensagens no sistema e que deu certo graças a deus... agora, é o seguinte: estou usando querys pra verificar datas importantes no sistema ao inicia-lo e faço um laço de repetição até chegar no final da tabela... são umas 10 querys, claro que uma para cada tabela... como que eu faço pra colocar uma progressbar passando sempre que ele executar uma tabela? no total, ele iria de 0 a 100% a quantidade de querys que eu tiver...

[Jhonas]

como que eu faço pra colocar uma progressbar passando sempre que ele executar uma tabela? no total, ele iria de 0 a 100% a quantidade de querys que eu tiver...

Um exemplo

procedure TForm1.Button1Click(Sender: TObject);
begin
   //VERIFICAR PRODUTOS NO ESTOQUE
   CDS_Moviment.First;

   CDS_Moviment.First;
   ProgressBar1.Max := CDS_Moviment.RecordCount;
   for i := 1 to CDS_Moviment.RecordCount do
      begin
         ProgressBar1.Position := i;

         TCadProd1.Edit;
         TCadProd1DATA.Value := DateEdit1.Date;
         TCadProd1COD_FORNEC.Value := CurrencyEdit2.AsInteger;
         TCadProd1COD_PRODUTO.Value := CDS_MovimentCODPRO.Value;
         TCadProd1DESCRICAO.Value := CDS_MovimentDESCRI.Value;

         TCadProd1.Post;

      end
      CDS_Moviment.Next;
end;

OBS: O ProgressBar1.Max que por padrão é 100, neste caso recebe o numero de registros da tabela que corresponderão a 100 %

a cada passagem do FOR o ProgressBar1.Position := i ira mostrar a posição em relação aos registros da tabela

abraço

[flavioavilela]

isso ai... dei uma adaptada apenas no código mas era isso mesmo...

vlw