Skip to main content
adicionou 898 caracteres ao conteúdo
Fonte Link
Ramon Ruan
  • 996
  • 1
  • 10
  • 38

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

//codigo aqui    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(50050);
   Application.ProcessMessages;
end;

Como posso resolver isso?

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:

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

//codigo aqui

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

Como posso resolver isso?

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;
Remoção de saudação (foco no problema). Formatação. Pergunta final.
Fonte Link
brasofilo
  • 6,7mil
  • 5
  • 30
  • 50

Senhores, estouEstou tentando incrementar um progressbarprogressbar dentro da minha estrutura de repetição, porém o progressbarprogressbar sempre trava a aplicação., vou Vou demonstrar aqui.

Segue, segue o código:

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

//codigo aqui

ProgressBar1.Position:= ProgressBar1.Position+1;
   Sleep(500);
end;
ProgressBar1.Position:=0;
While ... do
begin

//codigo aqui

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

É desta forma que estou fazendo, alguma ideia de como procederComo posso resolver isso?

Senhores, 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:

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

//codigo aqui

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

É desta forma que estou fazendo, alguma ideia de como proceder?

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:

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

//codigo aqui

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

Como posso resolver isso?

Fonte Link
Ramon Ruan
  • 996
  • 1
  • 10
  • 38

Progress Bar trava a aplicação

Senhores, 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:

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

//codigo aqui

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

É desta forma que estou fazendo, alguma ideia de como proceder?