Muito Simples (EXIT)
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
Curtidas 0
Respostas
Leanribas
05/11/2003
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
GOSTEI 0
Thoor Cobain
05/11/2003
Deu certo, eu não conhecia o Break... Muito Obrigado...
GOSTEI 0