Como faço este laço........

Delphi

28/08/2005

while not qry_entradadetalhe.Eof do
begin
if qry_entradadetalhe.FieldByName(´edetalhe_funcao´).AsString= ´L´ then
CONT_ITEM:=CONT_ITEM+1;

qry_entradadetalhe.Next;
end;

Como faço para quando o resultado obtido for igual a (L) pare de realizar o loop?


Fábio Galvão

Fábio Galvão

Curtidas 0

Respostas

Marco Salles

Marco Salles

28/08/2005

Como faço para quando o resultado obtido for igual a (L) pare de realizar o loop?


[b:6eca2e28a2]Use break;[/b:6eca2e28a2]

while not qry_entradadetalhe.Eof do
begin
if qry_entradadetalhe.FieldByName(´edetalhe_funcao´).AsString= ´L´ then
begin
CONT_ITEM:=CONT_ITEM+1;
break ;
end;

qry_entradadetalhe.Next;
end;


GOSTEI 0
POSTAR