Como interromper a execução de uma rotina?

Delphi

21/08/2003

Como faço para permitir que o usuário interrompa a execução de uma tarefa quando lhe for mais conveniente? Por exemplo, quando a rotina desta tarefa estiver demorando excessivamente para terminar.


Grato,
wbb


Wbb

Wbb

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

21/08/2003

Colega,


Vc pode checar um CheckBox por exemplo:
while not IBQuery1.Eof do
begin
  Application.ProcessMessages;
  if cbxCancelar.Checked then exit;
  ... Bloco de rotinas ...
  IBQuery1.Next;
end;


Não se esqueça de avaliar bem se realmente a sua rotina pode ser interrompida, bem como, utilizar o rollback se necessário em processos de atualização de banco de dados dentro de uma transação.


GOSTEI 0
Wbb

Wbb

21/08/2003

Entendi. Obrigado.

Porém, você me alertou para uma outra coisa importante também: Verificar quando pode ou não ser interrompida a execução da rotina. O que vem a ser esta verificação por ´rollback´ ?


Grato,
wbb


GOSTEI 0
POSTAR