Estructura complicada

[marcoszorrilla]

La cosa es sencilla, según entiendo, pero primero tendrás que saber cuantos registros van a eliminarse para poder pasar a la barra de progreso los valores correspondientes, luego no es más que ir incrementando en uno la barra.

Un ejemplo:

Código Delphi [-]
Try
  AniWait.Visible:=True;
  AniWait.Active:=True;


  DmAni2.Gruptarif.Exclusive:=True;
  DmAni2.Gruptarif.Open;
  DmAni2.Gruptarif.EmptyTable;

  DmConta.QrActualiza.Close;
  DmConta.QrActualiza.Sql.Clear;
  DmConta.QrActualiza.Sql.Add('Select * from CaGtarif ');
  DmConta.QrActualiza.Open;

  gActualiza.MaxValue :=DmConta.QrActualiza.RecordCount;
  DmConta.QrActualiza.First;

    While not DmConta.QrActualiza.Eof do
    begin
    DmAni2.Gruptarif.Append;
    gActualiza.Progress:= gActualiza.Progress + 1;

    DmAni2.GrupTarifGrupo.Value  := DmConta.QrActualiza.Fields[0].AsString;
    DmAni2.GrupTarifNombre.Value := DmConta.QrActualiza.Fields[1].AsString;

    DmConta.QrActualiza.Next;
    end;

  AniWait.Visible:=False;
  lbmsge.Caption:=' Grupos de Tarifa actualizados: '+FormatFloat(',0',DmConta.QrActualiza.RecordCount);
  lbmsge.Left:=Panel1.Width Div 2 - lbmsge.Width div 2 ;

Un Saludo.