Validar la existencia de un registro

[Neftali [Germán.Estévez]]

Activa el Check para que "salten" las excepciones desde el IDE y a ver en qué línea está fallando. Y qué se hace luego. No es normal que por un error de este tipo se cierre el programa.

Tools/Debugger options/Language exceptions/Stop on Delphi exceptions
(Actícvalo)

[lucho1981]

Empezado por Neftali

Activa el Check para que "salten" las excepciones desde el IDE y a ver en qué línea está fallando. Y qué se hace luego. No es normal que por un error de este tipo se cierre el programa.

Tools/Debugger options/Language exceptions/Stop on Delphi exceptions
(Actícvalo)

Tengo activado el Stop on Delphi, me explique mal anteriormente. Lo unico q puedo hacer una vez q quedo en STOP es apretar ctrl+F2 (seguro q solo puedo hacer eso por mi ignorancia), y asi salir de la ejecución.
Este el el error q me devuelve delphi.


Este es el codigo q utilizo para cargar el registro. En que deberia modificarlo?

Código Delphi [-]
if ((ap.text='')or(nom.text='')or(dni.text='')or
            (dir.text='')or(Maskedit1.text='')or(acceso.text='')) then
            begin
            application.messagebox('debe ingresar todos los datos','ERROR',0);
            end
  else
      begin
              with DM.QsinUSER do
                begin
                    ParamByName('pap').Value := ap.Text;
                    ParamByName('pnom').Value := nom.Text;
                    ParamByName('pdni').Value := dni.Text;
                    ParamByName ('ptel').Value := Maskedit1.Text;
                    ParamByName ('pdir').Value := dir.Text;
                    ParamByName ('pacceso').Value := acceso.Text;
                    ExecSQL;
                    Application.MessageBox('Los datos fueron cargados correctamente','Mensaje',0) 
                end;

  DM.tusuarios.Close;
  DM.tusuarios.Open;

  dni.Text :='';
  ap.Text := '';
  nom.Text := '';
  Maskedit1.Text := '';
  dir.Text := '';
  acceso.Text := '';

  ap.SetFocus;
  end;

Gracias

[[felipe88]]

Añade esto...

Código Delphi [-]
if ((ap.text='')or(nom.text='')or(dni.text='')or
            (dir.text='')or(Maskedit1.text='')or(acceso.text='')) then
            begin
            application.messagebox('debe ingresar todos los datos','ERROR',0);
            end
  else
      begin
          try //----
              with DM.QsinUSER do
                begin
                    ParamByName('pap').Value := ap.Text;
                    ParamByName('pnom').Value := nom.Text;
                    ParamByName('pdni').Value := dni.Text;
                    ParamByName ('ptel').Value := Maskedit1.Text;
                    ParamByName ('pdir').Value := dir.Text;
                    ParamByName ('pacceso').Value := acceso.Text;
                    ExecSQL;
                    Application.MessageBox('Los datos fueron cargados correctamente','Mensaje',0) 
                end;
         except raise exception.create('No se pudo guardar el registro'); //----
         end; //----

  DM.tusuarios.Close;
  DM.tusuarios.Open;

  dni.Text :='';
  ap.Text := '';
  nom.Text := '';
  Maskedit1.Text := '';
  dir.Text := '';
  acceso.Text := '';

  ap.SetFocus;
  end;

[[Lepe]]

Con esa ventana de excepción, puedes pulsar OK y después F9 para que salte de verdad la excepción, después aceptas la ventana y sigues ejecutando tu programa normalmente.

Obviamente al mostrarse una excepción no ha grabado el registro, de eso se trata. O ejecutas el programa fuera del IDE o desactiva la captura de excepciones: tool -> debugger -> language exception -> stop on delphi exception.

Ahora modifica tu codigo y ejecuta esto:

Código Delphi [-]
try 
   ExecSQL;
except
  ShowMessage('uuuuyyssss');
end;

En realidad deberías capturar qué error está dando.

Saludos