Delphi dicas

Usando o componente gauge na execução da query

Procedure TForm1.Button1Click(Sender: TObject);

begin



        Query1.Open;{ abre a table query que seja}

        Gauge1.MaxValue:=query1.RecordCount; {diz que o valor max do gauge é o valor de regitrs a serem

        processados pela na tabela}

        Query1.First; {posiciona no inicio da tabela}

        if not Query1.Eof then {enquanto a tabela não estiver, vai executar

        o codigo abaixo }

        repeat

                { seus comandos para a tabela }

                Gauge1.Progress:=Gauge1.Progress + 1;

                if Gauge1.Progress = Gauge1.MaxValue then

                begin

                        showmessage('Processo Terminado!');

                end;

                Query1.Next { move para o próximo registro}

        until Query1.Eof; {finaliza o programa ao final da tabela}

end;



end.



//espero que gostem

por : Fabricio Silva Da Rocha