Se puede hacer un else en un While not query1.eof Do?

[negrokau]

hola a todos, tengo un inconveniete con un BUCLE, quiero ponerle un else a un While not query1.eof do pero me salta este error:

'END' expected but 'ELSE' found

Este es bucle que quiero utilizar:

Código Delphi [-]
query1.First;
While not query1.Eof Do
Begin

 if cod_barra.text=query1.fieldvalues['cod_barra'] then
 begin
 showmessage('el codigo ingresado ya existe');
 cod_barra.setfocus;
 end;

query1.Next
end else

guardar.click;

la idea de este bucle es que busque si el codigo ingresado no se repite en la base de datos...
me darian alguna sugerencia? o alguna forma de modificarla para que me funcione, ya probe de muchas
maneras sin usar ELSE pero no pude resolverlo

Desde ya muchas gracias.....

[Casimiro Notevi]

Está mal anidado los if then begin end
Fíjate bien...

[negrokau]

ya lo corregi.... pero igual da el mismo error....

[roman]

Y ¿por qué no nos muestras como lo "corregiste"?

// Saludos

[negrokau]

Código Delphi [-]
if cod_barra.text<>null then
begin
query1.close;
query1.params[0].value:=dm.stock.fieldvalues['cod_barra'];
query1.open;
query1.First;
While not (query1.Eof) Do
Begin

 if cod_barra.text=query1.fieldvalues['cod_barra'] then
 begin
 showmessage('el codigo ingresado ya existe');
 cod_barra.setfocus;
 end;

query1.Next
end else

guardar.click;
end;

Asi esta mi proceso..... ya lo mire muchas veces y creo que esta bien desde mi punto de vista... corrijanme nomas si deje pasar algo... gracias

[[oscarac]]

eres conciente de que el else despues del end del while... es del primer if verdad?
en todo caso para que hacer un do while si estas verificando si el codigo ingresado existe via un query

[Casimiro Notevi]

Código Delphi [-]
While not (query1.Eof) Do 
Begin   
  if cod_barra.text=query1.fieldvalues['cod_barra'] then  
  begin  
    showmessage('el codigo ingresado ya existe');  
    cod_barra.setfocus;  
  end;

  query1.Next 
  end else  

  guardar.click; 
end;

¿y ese código de dónde viene?

[roman]

Si indentaras el código apropiadamente sería más fácil de ver. Te falta el end del if exterior. Lo tienes que poner justo despúés del end del while.

// Saludos