Sair de um la�o while

Question

Sauda��es a todos da lista...Estou precisando saber como fazer para, ao clicar em um bot�o, for�ar a sa�da de um la�o while que varre determinada tabela do banco.O problema que estou encontrando � que...

Emerson Nascimento · Answer

voc� n�o precisa de um thread para isso.
basta voc� colocar um Application.ProcessMessages a cada itera��o do la�o. voc� vai precisar criar uma vari�vel publica/privada para controlar o clique do bot�o. algo assim:

type
Form1 = class(TForm)
{...}
private
lCancelar: boolean; // vari�vel para controlar o cancelamento
{...}
public
{...}

procedure TForm1.BotaoConfirmarClick(Sender: TObject);
begin
lCancelar := False; // antes do la�o, inicializo a vari�vel como False

while [sua condicao] do
begin
if lCancelar and (MessageDlg(�Deseja realmente cancelar o processo?�,mtConfirmation,[mbYes,mbNo],0)=mrYes) then
break
else
lCancelar := False;

[seus comandos]

Application.ProcessMessages; // esse � o truque
end;

if lCancelar then
ShowMessage(�Processo incompleto. Foi cancelado pelo usu�rio�)
else
ShowMessage(�Processo finalizado�);
end;

// procedimento do bot�o cancelar
procedure TForm1.BotaoCancelarClick(Sender: TObject);
begin
lCancelar := True;
end;

end;

F�rum Sair de um la�o while #261224