Discussion :

[sverdo]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Clandestino]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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