Liberar memoria

[[Lepe]]

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