Fórum Muito Simples (EXIT) #192986
05/11/2003
0
procedure ChamaCadImpPPP;
begin
while DBLookupComboBox2.Text = ´´ do begin
tbResponsavel2.Next;
if tbResponsavel2.Eof then
exit;
end;
while DBLookupComboBox1.Text = ´´ do begin
tbResponsavel.Next;
if tbResponsavel.Eof then
exit;
end;
end;
No primeiro WHILE, quando ele entra no EXIT, ele saí de toda a função, mas eu quero q ele saia apenas do primeiro WHILE e entre no segundo WHILE
begin
while DBLookupComboBox2.Text = ´´ do begin
tbResponsavel2.Next;
if tbResponsavel2.Eof then
exit;
end;
while DBLookupComboBox1.Text = ´´ do begin
tbResponsavel.Next;
if tbResponsavel.Eof then
exit;
end;
end;
No primeiro WHILE, quando ele entra no EXIT, ele saí de toda a função, mas eu quero q ele saia apenas do primeiro WHILE e entre no segundo WHILE
Thoor Cobain
Curtir tópico
+ 0
Responder
Posts
05/11/2003
Leanribas
neste caso vc pode fazer assim:
procedure ChamaCadImpPPP;
begin
while DBLookupComboBox2.Text = ´´ do
begin
tbResponsavel2.Next;
if tbResponsavel2.Eof then
break;
end;
while DBLookupComboBox1.Text = ´´ do
begin
tbResponsavel.Next;
if tbResponsavel.Eof then
break;
end;
end;
o exit é usado para vc sair da função, o break e usado para vc sair de um laco for, ou While
Falou
Leandro
procedure ChamaCadImpPPP;
begin
while DBLookupComboBox2.Text = ´´ do
begin
tbResponsavel2.Next;
if tbResponsavel2.Eof then
break;
end;
while DBLookupComboBox1.Text = ´´ do
begin
tbResponsavel.Next;
if tbResponsavel.Eof then
break;
end;
end;
o exit é usado para vc sair da função, o break e usado para vc sair de um laco for, ou While
Falou
Leandro
Responder
Gostei + 0
05/11/2003
Thoor Cobain
Deu certo, eu não conhecia o Break... Muito Obrigado...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)