Discussion :

[AlexB59]

Bonsoir,

pour vérifier que les données d'une fiche sont valides je crais une fonction me le disant. Exemple : OkPourSortir.
Cette fonction me dit si toutes mes saisies sont ou non valide.

Dans cette fonction je teste mes champs.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    //Vérifier qu'un nom d'opératrice(teur) a été saisi
    If CbUtilisateur.Text = '' Then
      begin
          Msg := 'ABSENCE DE NOM' + cRetourChariot + cRetourChariot +
                'Vous n''avez pas indiqué votre nom dans la zone de saisie ' +
                'de l''utilisateur.';
          MessageDlg(Msg, mtWarning, [mbOk], 0);
 
          CbUtilisateur.SetFocus;
          CbUtilisateur.DroppedDown:=true;
          exit;
    end; //CbUtilisateur.Text = ''

Je me pose actuellement la question à savoir si c'est ou non une bonne méthode.
En utilisant 'exit', dans le cas où j'aurais un objet Recordset d'ouvert je ne pourrais le fermer en quittant la procédure. Est-ce qu'à ce moment le Try puis Finally marche ?

Dans Access j'utilisais des goto, mais dans Delphi (encore en phase d'apprentissage) j'utiliserais bien un Try Finally.

Comment faites vous dans vos formulaires pour vérifier vos saisies ?

Bonne soirée,

Alexandre.

[baba]

bonjour,
normalement, pour tester la validité des champs saisis, personnellement j'utilise l'événement OnExit de chaque champ que je veux tester sa validité.

[skywaukers]

bonjour,

normalement le finally d'un try est toujours executé (c'est son objectif). Si tu veux en être sûr, place un point d'arrêt sur l'instruction dans le finally, tu verras bien si il y passe.

Concernant la méthode, c'est celle que j'utilise personnellement, sans les exit.

@++
Dany