evitando messagedlg mas de uma vez no while

[Wilke1 0]

ola pessoa gostaria de controlar atraveis de variavel somente uma ''pergunta de mensagem '' no while

eu fiz assim mas não esta dando certo :wacko:

vr_count:=0;

 

while not qryteste.eof.do begin

 

if Qrycad.fieldbyname('cd_departamento').value='100' then begin

vr_count:= vr_count+1;

if vr_count=1 then begin

if messagedlg('deseja lancar perda ',mtinformation,[mbyes,mbno],0,mbno)=mryes then begin

*

*

*

*

end;

end;

Qryteste.next;

end;

[Rodrigo Miss 1]

você pode fazer assim:

while not (qryteste.EOF) do
begin
  if (Qrycad.fieldbyname('cd_departamento').value = 100) then
  begin
	// coloca aqui seu comando
	break; // cai fora do bloco while ...
  end;

  Qryteste.next;
end;

[Wilke1 0]

você pode fazer assim:

while not (qryteste.EOF) do
begin
  if (Qrycad.fieldbyname('cd_departamento').value = 100) then
  begin
	// coloca aqui seu comando
	break; // cai fora do bloco while ...
  end;

  Qryteste.next;
end;

valeu amigo