1

Estou tentando incrementar um progressbar dentro da minha estrutura de repetição, porém o progressbar sempre trava a aplicação. Vou demonstrar aqui, segue o código:


Seria correto tentar usar desta forma?

ProgressBar1.Position:=0;
While ... do
begin

     DModuleGrid.ZQuery3.Close;
     DModuleGrid.ZQuery3.SQL.Clear;
     DModuleGrid.ZQuery3.SQL.Add('SELECT count(*) FROM cupatres WHERE numcupom = :pcoo2 ');
     DModuleGrid.ZQuery3.SQL.Add('AND NSerie = :pecf1 AND ccf = :pccf3 AND Retorno = :pret4 ');
     DModuleGrid.ZQuery3.SQL.Add('AND diavenda BETWEEN "'+pdate1treg+'" AND "'+pdate2treg+'"');
     DModuleGrid.ZQuery3.ParamByName('pcoo2').AsString := copy(lTemp,47,6);
     DModuleGrid.ZQuery3.ParamByName('pccf3').AsString := copy(lTemp,53,6);
     DModuleGrid.ZQuery3.ParamByName('pret4').AsString := copy(lTemp,59,3);
     DModuleGrid.ZQuery3.ParamByName('pecf1').AsString := copy(lTemp,4,20);
     DModuleGrid.ZQuery3.Open;
     DModuleGrid.ZQuery3.FetchAll;
     rc1 := DModuleGrid.ZQuery3.RecordCount-1;



ProgressBar1.Max := rc1;
ProgressBar1.Position:= ProgressBar1.Position+1;
   Sleep(50);
   Application.ProcessMessages;
end;
11
  • Qual é o "código aqui"? Certeza que é o progressbar? Funciona sem ele? Commented 23/05/2014 às 16:59
  • @Filipe.Fonseca, funciona sem problemas sem ele (progressbar), o código é enorme.
    – Ramon Ruan
    Commented 23/05/2014 às 17:00
  • O código enorme acessa banco? Você consegue saber se o sistema congela enquanto está executando o while sem ter o progressbar lá? Commented 23/05/2014 às 17:03
  • Tente adicionar application.processmessages; no lugar do sleep. Se der certo formulo uma resposta explicando o pq. Commented 23/05/2014 às 17:04
  • 2
    Estamos com um problema grande aqui agora. Mas no fim da tarde posto um exemplo de como fazer. Uma dúvida: Qual o maxvalue de sua progress bar? como está calculando ele? No seu exemplo não mostra a definição do maxvalue
    – Caputo
    Commented 23/05/2014 às 19:17

2 Respostas 2

4

Tente da seguinte forma:

ProgressBar1.Position:=0;
While ... do
begin

  //codigo aqui

  ProgressBar1.Position:= ProgressBar1.Position+1;
  Sleep(500);
  Application.ProcessMessages;
end;

O comando Application.ProcessMessages faz o que o nome mesmo diz, processa as mensagens que estão pendentes no seu sistema.

O progressbar não travava sua aplicação, só não avançava porque o sistema estava "congelado" fazendo o que sua rotina mandou.

1
  • Por favor evitem longas discussões nos comentários; a conversa de vocês foi movida para o chat
    – Maniero
    Commented 1/03/2017 às 20:13
0

Eu fiz um while apenas para contar a quantidade de registros encontrados, segue o código:

//contando registros
  AssignFile(txt, frmSelection.FileListBox1.FileName);
  Reset(txt);
  while not eof(txt) do
  begin
    Readln(txt, lTemp);
    btnLoadCup.Enabled := false;

    if (copy(lTemp, 1, 3) = 'E01') then
    begin
      date1 := StrToDateTime(copy(lTemp, 134,2)+'/'+copy(lTemp, 132,2)+'/'+copy(lTemp, 128,4));
      date2 := StrToDateTime(copy(lTemp, 142,2)+'/'+copy(lTemp, 140,2)+'/'+copy(lTemp,
      136,4));
      date1treg := FormatDateTime('yyyy/MM/dd', date1);
      date2treg := FormatDateTime('yyyy/MM/dd', date2);
    end;

    if  (copy(lTemp, 1, 3) = 'E14') then
    begin
       dtcompra:=StrToDateTime(copy(lTemp,65,2)+'/'+copy(lTemp,63,2)+'/'+copy(lTemp,59,4));
       dtcompratxt:= FormatDateTime('dd/MM/yyyy', dtcompra);

       DModuleGrid.ZQuery1.Close;
       DModuleGrid.ZQuery1.SQL.Clear;
       DModuleGrid.ZQuery1.SQL.Add('SELECT count(*) FROM tdcupant WHERE numcupom = :co2 AND ccf = :cc3 AND dtcompra = :dtc4 AND impcaixa = :ip5 ');
       DModuleGrid.ZQuery1.SQL.Add('AND dtcompra BETWEEN "'+date1treg+'" AND "'+date2treg+'"');
       DModuleGrid.ZQuery1.ParamByName('co2').AsString := copy(lTemp,53,6);
       DModuleGrid.ZQuery1.ParamByName('cc3').AsString := copy(lTemp,47,6);
       DModuleGrid.ZQuery1.ParamByName('ip5').AsString := copy(lTemp,4,20);
       DModuleGrid.ZQuery1.ParamByName('dtc4').AsDate := StrToDate(dtcompratxt);
       DModuleGrid.ZQuery1.Open;
       DModuleGrid.ZQuery1.FetchAll;
       rc1 := DModuleGrid.ZQuery1.RecordCount;


      if  (copy(lTemp, 1, 3) = 'E15') then
      begin
       DModuleGrid.ZQuery3.Close;
       DModuleGrid.ZQuery3.SQL.Clear;
       DModuleGrid.ZQuery3.SQL.Add('SELECT count(*) FROM cupatres WHERE numcupom = :pcoo2 ');
       DModuleGrid.ZQuery3.SQL.Add('AND NSerie = :pecf1 AND ccf = :pccf3 AND Retorno = :pret4 ');
       DModuleGrid.ZQuery3.SQL.Add('AND diavenda BETWEEN "'+pdate1treg+'" AND "'+pdate2treg+'"');
       DModuleGrid.ZQuery3.ParamByName('pcoo2').AsString := copy(lTemp,47,6);
       DModuleGrid.ZQuery3.ParamByName('pccf3').AsString := copy(lTemp,53,6);
       DModuleGrid.ZQuery3.ParamByName('pret4').AsString := copy(lTemp,59,3);
       DModuleGrid.ZQuery3.ParamByName('pecf1').AsString := copy(lTemp,4,20);
       DModuleGrid.ZQuery3.Open;
       DModuleGrid.ZQuery3.FetchAll;

        rc2 := DModuleGrid.ZQuery3.RecordCount;
        ProgressBar1.Max := rc1+rc2;
      end;
    end;
  end;
closeFile(txt);

Valeu, obrigado pessoal.

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .