Cita:
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