tester la valeur de plusieur edits

**neuneu1** · 17/05/2007, 15h10

bonjour,
est il possible de tester si la valeur de plusieur edits est vide ou non conforme au besoin de l'application sans avoir a tester chaque edit seule pour savoir si il est vide.

exemple
j'ai 3 edits , aucun ne doit etre vide,

dois je absolument faire if edit1.text='' then showmessage ('champd vide')

if edit2.text=('') then etc..

je veux juste savoir si il pas une methode plus rapide et moins longue merci.

a+

**Fabrice ROUXEL 1** · 17/05/2007, 15h24

Le but est en quelque sorte de valider un formulaire.
Donc crées une fonction qui prend un TEdit en parametre et qui contient le code de validation (Result := aEdit.Text <> ''; ).
Ensuite tu listes chaque composant de la fiche et tu appelles cette fonction pour chaque Tedit.

Code :

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

1
2
3
4
for i := 0 to ComponentCount -1
  if Components[i] is TEdit
    with Component[I] as TEdit do
      LaFonction(TEdit(Component[I]));

**neuneu1** · 17/05/2007, 15h56

merci de la reponse

mais ca fait tres longtemp que j'ai pas fais de delphi et encore plus des fonction.

je vais faire des teste pour me remettre a niveau

merci

**neuneu1** · 17/05/2007, 17h18

bon comme je suis pas bon ca marche pas
j'ai reussi qu a cree une fonction addition.

le reste ca plante

Code :

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

1
2
3
4
5
6
7
 
 
    function vide (s:tedit):string;
     begin
 
   s.Text:=''   ;
     Result := s    ;

de plus j'ai un indice hors limite

je comprend ce que tu as voulu me dire mais j'arrive pas a le traduire.

c'est prende chaque edit, le teste avec la fonction vide
si edit=vide je sors de la prcedure valide.

**EPJSoft** · 17/05/2007, 17h55

J'aurai fait comme fabrice (a part des fautes de frappes lol)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
function TForm1.IsValid(Edit :TEdit) :boolean;
begin
  if Trim(Edit.Text)='' then
    result := false
  else
    result := true;
end;
procedure TForm1.Btn_ValidClick(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to ComponentCount -1 do
    if Components[i] is TEdit then
        if not IsValid(TEdit(Components[i])) then
        begin
          ShowMessage('Champs '+ TEdit(Components[i]).Name +'Vide');
          TEdit(Components[i]).SetFocus; 
          exit; // je force la sortie pour evite d'avoir plusieurs messages
        end;
end;

**neuneu1** · 17/05/2007, 18h30

peut on passer outre la fonction en testant chaque edit ds la boucle?

**neuneu1** · 17/05/2007, 18h33

merci
EPJSoft

ca marche feu de dieu , je regarde pour mieux comprendre le code

merci

**neuneu1** · 17/05/2007, 18h43

ben j'ai un peu de mal a tout saisir, mais ca va quand meme

Il faut que je me remette dedans mais c 'est dur car je ne fais que de l'admin reseaux maintenant

merci encore

**EPJSoft** · 17/05/2007, 18h44

sans la 'function'

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
for i := 0 to ComponentCount -1 do // on liste tous les composants de la fiche
    if Components[i] is TEdit then     // si c'est un composant TEdit
       // le récupère le text du composant sans les espaces (d'ou le trim)
        if Trim(TEdit(Components[i]).text)='' then 
        begin
          // la j'affiche le nom interne du composant 
          ShowMessage('Champs '+ TEdit(Components[i]).Name +'Vide');
          // on force le focus sur le champs vide
          TEdit(Components[i]).SetFocus; 
          // on sort de la boucle 
          exit; 
        end;

**neuneu1** · 17/05/2007, 21h03

j'ai crie victoire trop vite, comme je me suis apercu que ca listait tout les composants, ca marche pas top avec mon applis qui utilise pagecontrole avec ttabsheet.

Chaque tabsheet contient des edits, et la fonction les liste tous, mais certain sont vide car ne sont pas utilises.
ex

tabsheet1 sert a valide un nouveau eleves
tabsheet 2 un nouveaux tarif
tabshhet3 sert a faire des recherche

etc..

donc certain sont vide et inactif.

je vais devoir tester si la page est active avant de tester les objet ou revoir ma copie.

pas grave ,c'est un faisant des erreur qu on apprend non!!!!

merci

**sjrd** · 17/05/2007, 21h03

Envoyé par neuneu1

est il possible de tester si la valeur de plusieur edits est vide ou non conforme au besoin de l'application sans avoir a tester chaque edit seule pour savoir si il est vide.

Les solutions données jusqu'ici sont bonnes. Mais je conseille vivement à tous d'essayer, dans la JVCL, TJvValidators et ses deux acolytes.

Ca c'est vraiment génial pour cette utilisation.

**neuneu1** · 17/05/2007, 23h38

j'ai telecharger , peux tu donne un peu d explication pour le beothien que je suis

j'ai teste l exemple je pense avoir saisie mais lorsque je veux essaye sur une a pplis j'ai des erreur avec ca reResults

merci

le cas de figure si dessus est tjrs d actualitee

merci

**Okaryn** · 18/05/2007, 11h06

Pour limiter le test aux composants contenus dans l'onglet actif :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
  with PageControl1.ActivePage do
    for i := 0 to controlCount - 1 do // on liste tous les composants de l'onglet 1
      if Controls[i] is TEdit then     // si c'est un composant TEdit
        // le récupère le text du composant sans les espaces (d'ou le trim)
        if Trim(TEdit(Controls[i]).Text) = '' then
        begin
          // la j'affiche le nom interne du composant
          ShowMessage('Champs ' + TEdit(Controls[i]).Name + 'Vide');
          // on force le focus sur le champs vide
          TEdit(Controls[i]).SetFocus;
          // on sort de la boucle
          exit;
        end;

Au lieu de ComponentCount et Components[], on utilise ControlCount et Controls[] ainsi que with PageControl1.ActivePage do pour éviter d'avoir à préfixer toutes les références à ControlCount et Controls[]

**sjrd** · 18/05/2007, 11h57

Eh bien sur la fiche formulaire où tu dois valider la présence de certains edits, tu poses un TJvValidators et un TJvErrorIndicator. Tu positionnes la propriété ErrorIndicator de JvValidators1 à JvErrorIndicator1.

Puis tu double-cliques sur le TJvValidators, pour afficher la gestion des validateurs. Tu en crées un nouveau de type Required Field Validator, et tu sélectionnes les propriétés comme suit :
ControlToValidate = ErrorControl = l'edit à contrôler
ErrorMessage = Vous devez remplir ce champ (ou ce que tu veux comme message d'erreur)
PropertyToValidate = Text (la propriété du contrôle qui doit être non vide).

Et tu crées un validateur dans cette liste pour chaque contrôle.

T'as plus qu'à, dans ButtonOKClick ou je ne sais comment tu l'appel, faire :

Code :

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

if not JvValidators1.Validate then exit;

Après je te laisse admirer le résultat

**neuneu1** · 18/05/2007, 14h22

merci pour les precision sur page control et controls, j'avais bien essaye ca mais avec copoments.

pour jvlc j'ai pas encorer reussi.

j'ai reussi pas fait gaffe a tout.

mais pour plusieur controle on met plusieur requieredfield , ca charge un peu non, sinon j'aime bien

**neuneu1** · 18/05/2007, 14h36

je reviens encore c 'est vraiment tres cool.

merci

**fabred** · 19/05/2007, 10h30

dr

tester la valeur de plusieur edits

Delphi

Discussions similaires

Partager

Partager