[Lazarus] Traitement des exceptions

Pourriez vous m'indiquer comment traiter une exception dans le cas de code que je joins :

Code:

---

1 2 3 4 5 6 7

procedure TMainForm.BtnRechecheClick(Sender: TObject); begin If DBA.Active then begin MainForm.DBA.Filter := ERecherche.Text; end; end;

---

Donc je souhaiterais que si dans le champ ERecherche les données entrées ne sont pas exactes(pb de casse ou fausses données), je puisse afficher un messages d'erreur, plutôt que la fermeture de mon application.

Merci

Même façon de faire qu'avec Delphi :

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TMainForm.BtnRechecheClick(Sender: TObject); begin If DBA.Active then try // on essaie en mode protégé MainForm.DBA.Filter := ERecherche.Text; except // en cas d'exception on e: Exception do // on appelle e l'exception // on affiche l'exception Application.MessageBox( PChar('Erreur : '+e.Message), 'Exception', 0); end; end;

---

Bonne programmmation

Clandestino