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

[Casimiro Noteví]

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 Noteví]

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?

[negrokau]

Empezado por 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?

el end else es del while... corre bien el bucle, encuentra si ya existe el codigo, pero si no existe tiene que
guardar, es por eso que quiero poner un else al while...

[roman]

A ver, un while no lleva un else. Punto.

Ahora, como ya te han observado, más allá del error propiamente sintáctico, tienes un error de concepto. No necesitas recorrer los resultados de una consulta para determinar que un código ya se ha introducido. Únicamente necesitarías saber si la consulta regresa por lo menos un registro, para lo cual cuentas con la propiedad IsEmpty del Query.

// Saludos

[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

[[Delphius]]

Lo que sucede aquí es una incompresible falta de atención y lectura a la sintaxis y gramática de Pascal. Con todo respeto.

TODA instrucción debe finalizar con ;
TODO begin debe ir con su correspondiente end
El error se debe a un cierre prematuro debido a un punto y coma colocado después del end de la parte then.

Un IF se "cierra" colocando el ; al final.

Es decir:

Código Delphi [-]
IF (condicion)
then instruccion;

IF (condición)
then begin
    instrucciones;
  end;

IF (condición)
then instrucción // aqui no va ; porque tiene parte else
else instrucción; // aquí si va ;. finaliza el IF

Simple: Repasar gramática y sintaxis.

Saludos,

[roman]

Empezado por Delphius

TODA instrucción debe finalizar con ;

Bueno, esto, de hecho, no es cierto En pascal, el punto y coma es un separador de instrucciones, no un terminador.

// Saludos