Foros Club Delphi - Se puede hacer un else en un While not query1.eof Do?

Página 1 de 2

Mostrar 40 mensajes desde este tema en una página

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Se puede hacer un else en un While not query1.eof Do? (https://www.clubdelphi.com/foros/showthread.php?t=76218)

negrokau

17-10-2011 15:27:20

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

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

17-10-2011 15:28:47

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

negrokau

17-10-2011 15:37:48

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

roman

17-10-2011 15:54:30

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

// Saludos

negrokau

17-10-2011 16:02:44

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

17-10-2011 16:06:18

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í

17-10-2011 16:07:03

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

17-10-2011 16:07:47

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

17-10-2011 16:23:46

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

17-10-2011 16:27:36

Cita:

Empezado por Delphius (Mensaje 415827)

TODA instrucción debe finalizar con ;

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

// Saludos

Casimiro Noteví

17-10-2011 16:37:15

Hay alguna excepción a la norma, ejemplo:

Código Delphi [-]procedure TFregistroIVA.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DS1.DataSet.Close     //  <--- No hace falta el punto y coma
end;

roman

17-10-2011 16:47:58

No es una excepción, es sólo que, al no haber sentencia posterior, no es necesario. Como dije, en pascal el punto y coma no termina, separa. Cosa, por ejemplo, que no ocurre en C, en donde el punto y coma sí es un terminador.

// Saludos

oscarac

17-10-2011 16:49:51

sin temor a equivocarme... lo que negrokau quiere hacer es validar si un codigo ya existe
pero me parece que no lo esta haciendo correctamente

podrias usar el evento ONValidate en el campo y ahi mismo podrias verificar mediante un query si el codigo existe o no
a mi parecer el do while esta de mas (salvo que en el query te jale varios registros iguales :S)

negrokau

17-10-2011 16:55:14

Cita:

Empezado por Casimiro Notevi (Mensaje 415821)

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

17-10-2011 16:58:58

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

Delphius

17-10-2011 17:12:47

Cita:

Empezado por roman (Mensaje 415829)

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

// Saludos

Bueno... es un decir :D . Por algo dije más adelante: Un IF se "cierra" :p

El "terminador" que se me ocurre es el punto:

Código Delphi [-]end.

Jeje :D

Saludos,

negrokau

17-10-2011 17:22:15

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
 
 showmessage('el codigo ingresado ya existe');
 cod_barra.setfocus;
 query1.Next;
 
end;

guardar.click;
end;

Ya tengo claro que el while no lleva else.
Ahora el problema que tengo es que al encontrar un mismo codigo tendria que el focus posicionarse en cod_barra, pero igual recorre todo el algoritmo y guarda..., como le hago para que no guarde si encuentra un mismo codigo y que el focus se situe en cod_barra...

negrokau

17-10-2011 17:23:50

Cita:

Empezado por oscarac (Mensaje 415835)

y como uso el evento ONValidate? nunca le use, por eso no lo conozco...

oscarac

17-10-2011 17:31:39

yo lo tengo mas o menos asi

Código Delphi [-] 
procedure TfrmCatalogoArticulo.qryArticuloKODValidate(
  Sender: TField);
  dmComedor.qryVerificaKodArticulo.Parameters.ParamByName('KOD').Value := Sender.Value;
  dmComedor.qryVerificaKodArticulo.Open;
  if not dmComedor.qryVerificaKodArticulo.IsEmpty then
  begin
    MessageDlg('Código ya creado', mtError, [mbAbort], 0);
    dmComedor.qryVerificaKodArticulo.Close;
    Abort;
  end;
  dmComedor.qryVerificaKodArticulo.Close;

como ubicas el ONvalidate?
en el query o tabla donde estas grabando la informacion le das doble click al componente y te salen los campos persistentes.. en el campos en el cual pretendes grabar el "codigo", busca en el object inspector.. el evento Onvalidate... ahi colocas el codigo para verificar si existe o no

Casimiro Noteví

17-10-2011 17:35:33

Debes explicar primero EXACTAMENTE qué quiéres hacer, porque ese while, aparentemente, no sirve para nada, como ya han comentado.

La franja horaria es GMT +2. Ahora son las 00:08:26.

Página 1 de 2

Mostrar 40 mensajes desde este tema en una página