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

[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

[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

[Casimiro Noteví]

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