Para probar que un código es correcto estoy forzando que tenga lugar un error al ejecutar un query en FB.
Código:
void __fastcall TfLisCar::FormCreate(TObject *Sender)
{
Query->Close();
Query->SQL->Text = "SELECT DISTINCT Codigo, Nombre Ls02 WHERE CodPrv = 45 ORDER BY Nombre, Codigo";
try
{
Query->Open();
}
catch(Exception *Exc)
{
ShowMessahe(Exc->Message);
this->Close();
return;
}
}
Es evidente que el query va a dar error porque falta el
FROM. Mi problema es que aunque salta la excepción y se muestra el mensaje de error el formulario no se cierra y no soy capaz de encontrar la razón.