(Resolvido) Mostrar dentro do ciclo for

[mariolopes]

Viva

Tenho um ciclo e precisava de mostrar o progresso mas este só é mostrado no fim:

for i := 0 to total - 1 do
begin
haStock:=1;

   lblsku.Caption:=zquery2.FieldByName('sku').AsString;
   lblatual.Caption:=inttostr(i);
   lHTTP := TIdHTTP.Create(nil);

Ou seja na lblsku.caption gostaria de ir mostrando os valores para cada i.

Cumprimentos

Mário Lopes

Editado Fevereiro 13, 2016 por mariolopes

[Jhonas]

for i := 0 to total - 1 do
begin
haStock:=1;

   lblsku.Caption:=zquery2.FieldByName('sku').AsString;
   lblatual.Caption:=inttostr(i);

   lblatual.Refresh; 

   sleep(500);
   lHTTP := TIdHTTP.Create(nil);

 

OBS: isso vai mostrar o valor de lblatual.Caption, mas vai aumentar o tempo de processamento

abraço

[mariolopes]

Ok Jhonas

Obrigado