problemas con case

[edgarCruz95]

Tengo problemas con el case, al momento de ejecutarlo y querer registrarlo lo primero que me manda es que si deseo actualizar el registro, cuando nisiquiera esta registrado, alguien prodria ayudarme? de antemano muchas gracias

Código Delphi [-]
var Error: Integer;
begin
     error := 0;
 
   if Sa_salas.Text = '' then Error := 1 else
     if Sa_status.Text = '' then Error := 2;
 
         Case Error of
          0:begin
 
                if BD.QG1.Eof then
                begin
                // Es una sala Nuevo
                GuardaSala('NUEVO');
                MessageDlg('Los Datos de la sala se guardaron', mtinformation, [mbOk], 0);
                end
                else
                 begin
                   // Quiere Actualizar la sala
 
                   if MessageDlg('Ya exíste esa sala ''' + Sa_salas.Text + '''' + #13 + '¿Deseas Actualizar sus datos?',mtconfirmation,[mbyes, mbno],0) = mryes then
                   begin
                   Sa_sal := Sa_salas.Text;
                   GuardaSala('ACTUALIZA');
                   MessageDlg('Se Actualizaron los Datos de la sala', mtinformation, [mbOk], 0);
                   end;
 
                 end;
                SpeedButton3Click(Sender);
             end;
 
 
          1: begin
                  MessageDlg('Teclee la sala',mtError,[mbok],0);
                  Sa_salas.SetFocus
          end;
          2: begin
                  MessageDlg('Seleccione el status',mtError,[mbok],0);
                  Sa_Status.SetFocus
          end;
 
      End;
end;

[Casimiro Notevi]

Bienvenido a clubdelphi

Para otras veces, no olvides hacer uso de las etiquetas para código, gracias.



Ya lo he editado en este caso.
Saludos.

[ecfisa]

Hola.

Verifica si la condición,

Código Delphi [-]
   if BD.QG1.Eof then
   ...

se cumple alguna vez.

Por ejemplo al inicio de tu función:

Código Delphi [-]
...
var 
  Error: Integer;
begin
  if BD.QG1.Eof then
    ShowMessage('Fin de archivo')
  else
    ShowMessage('No es fin de archivo');
  ...

Saludos