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

[[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

[Casimiro Noteví]

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]

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

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]

Empezado por oscarac

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)

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

[[oscarac]]

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

[Loviedo]

Imagino que está comprobando un Edit.text con el valor de un Campo.
Creamos una variable booleana (existe). Si lo encuentra sal del bucle.

Código Delphi [-]

existe := false;
 
query1.First;
While not query1.Eof Do
Begin
 if cod_barra.text=query1.fieldvalues['cod_barra'] then
 begin
  showmessage('el codigo ingresado ya existe');
  existe := true;
  cod_barra.setfocus;
  break;
 end;
 query1.Next;
end;

if not existe then
 guardar.click;

Otra opción es comprobar previamente con un select si existe el cod_barra.

[negrokau]

Empezado por oscarac

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

hola oscarac, me podrias explicar un poco mejor como configurar? te lo agradeceria...

[Casimiro Noteví]

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

[negrokau]

Empezado por Casimiro Notevi

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

Lo que quiero que haga exactamente es que busque si el codigo ingresado ya existe, si ya existe me salte el mensage y que el focus se posiciones en cod_barra para cambiar el codigo:

Código Delphi [-]
if cod_barra.text=query1.fieldvalues['cod_barra'] then
showmessage('el codigo ingresado ya existe');
cod_barra.setfocus;

si no existe el codigo que guarde:

Código Delphi [-]
guardar.click;

se entiende ahora lo que quiero hacer?