Discussion :

[faenor]

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

[nou366]

salut,
si c'est pour tous les edits , utilise ça

Code :

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

1
2
3
4
 
 for i:= 0 to ComponentCount -1  do
                if Components[i] is TEdit then
                 if TEdit(Components[i]).text = '' then showmessage '.....';

[Balises CODE rajoutées par Pedro. merci d'y penser à l'avenir]

[faenor]

en fait c'est que pour les premiers edit2 donc j'ai juste modifié le début (for i := 1 to 6)
Mais dans le programme, ça plante toujours quand j'ommets de remplir certains champs necessaire malgré ce controle....portant il est fait en début de procedure......

[nou366]

le code que je t'ai donné c'est pour tous les edits de la forme...
tu ne dois pas faire "for i:=0 to 6 ", reprend le tel que je t'ai l'écrit

[faenor]

ton code marche bien mais je cherche simplement à contoler les edit allant de 1 à 6.....Et ça ça ne marche pas

[nou366]

alors, je pense qu'il faudrait le faire comme tu le disais au début.
faire le test avec les 6 edits manuellement ou bien avec une boucle

[OutOfRange]

Bonjour

Tu peux aussi regrouper les TEdit à tester dans un groupbox

Code :

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

1
2
3
4
5
 
   for i:=0 to groupbox1.ControlCount-1 do
   if(groupbox1.Controls[i] is tedit)
   and(tedit(groupbox1.Controls[i]).Text='')
   then showmessage(tedit(groupbox1.Controls[i]).Name+' saisie obligatoire');

Bonne prog

[nihao]

Et si tu te servais de la proprité Tag des composants TEdit. Par défaut, ils sont à 0. Met 1 pour les Edits dont tu veux contrôler le contenu puis :

Code :

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

1
2
3
4
 
for i:= 0 to ComponentCount -1  do
    if (Components[i] is TEdit) and (Components[i].Tag = 1) then
       .....tu appelles ta procedure de contrôle

Ca marche ça ?

[faenor]

ça marche ! merci pour vos réponses c'est toujours bien d'avoir plusieurs possiblités.
@+