Bonjour !

Je cherche à placer des gardes fous à mon programme histoire de pouvoir gérer les erreurs de saisies possibles. J'ai une solution mais avouez que c'est pas tres élégant...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
procedure Tform1.controle ;
begin
    ctr := 'veuillez remplir tous les champs obligatoires' ;
    if edit1.text = ' ' then showmessage(ctr) ;
    ........................................................
    if edit10.text = ' ' then  showmessage(ctr) ;
end ;
Cette procedure sera appelée dans la procedure principale déclenchée par un bonton.

Est il possible de controler avec une boucle for (de 1 à 10 faire le controle) ? Ou même une autre solution ?

merci