Cita:
Empezado por vicvil
¿Que entrete no?
|
No. Era de esperar.
Código Delphi
[-]
try
Query.ExecSql
except
end;
Al no poner nada entre el except... end, estas diciendo que si ocurre alguna excepción, simplemente se la coma con patatas y siga adelante. Por eso no muestra ningún mensaje de error. Debes hacer lo siguiente:
Código Delphi
[-]try
Query.ExecSql
except
on E: Exception do
ShowMessage(Format('Atencion error de tipo: %s', [E.ClassName]));
end;
Ver si da fallos en ejecución y despues controlar los fallos que dé.
Código Delphi
[-]try
Query.ExecSql
except
On E: << el tipo que te haya mostrado el ShowMessage anterior>> do
begin
<< controlar de la forma oportuna >>
end;
On E: << otro tipo de fallo >> do
begin
<< lo que sea>>
end
else
ShowMessage(Format('Atencion Error No esperado de tipo: %s', [E.ClassName]));
end;
Por cierto, sigo diciendo que un Log del estilo que comenté es necesario para este tipo de cosas.
Saludos