Discussion :

[gcvoiron]

Bonjour,

Je suis en train de faire un formulaire en Delphi et je souheterai vérifier la validité des champs (non vides).
Que me conseillez vous de faire pour ne par répeter :

Code :

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

if(add_point1_y.Text = '') then

Merci d'avance, gcvoiron.

[Tardiff Jean-François]

Bonjour,

Si c'est dans l'évènement onchange/Onclick etc et que le traitement est le même pour tous les edit utiliser le sender.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Procedure Form1.OnEditchange(Sender: TObject);
var
  Edit: TEdit;
begin
  if not (Sender is TEdit) then // par securité
  Exit;
 
  Edit := TEdit(Sender);
 
  if Edit.text = ... then begin
  ..
  end;

Autrement vous pouvez créer un procédure de test.

Code :

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

1
2
3
4
5
6
7
 
function form1.TestIfEditValid(Edit: TEdit): boolean;
  result := True;
  if Edit.Text = ... then begin
 
  end;
end;

et vous appelez la fonction

Code :

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

1
2
3
4
 
  if not TestIfEditValid(Edit1) then ...
  if not TestIfEditValid(Edit2) then ...
etc.

[rbh]

Salut
Tu peux utiliser "Components" de la Form.

Code :

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

1
2
3
4
5
6
7
 
For i := 0 to Self.Components.Count - 1 do
begin
  if Self.Components.Items[i] is TEdit then
    if TEdit(Self.Components.Items[i]).text = '' then
      [...]
end;

(Le "Self" n'est pas obligatoire. Tout comme le "Items")

Tu peux aussi stocker tes Edits dans des TObjectList et faire tes contrôles en Boucle sur la TObjectList. (l'exemple précédant utilise une TObjectList, il faut juste que tu en crée une et que tu la remplisse "à la main")

Tu peux peut-être aussi utiliser les évènement OnExit de tes Edits :

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.AllEditExit(Sender: TObject)
begin
  if Sender is TEdit then//nécessaire pour être sûr qu'on sort d'un TEdit
  begin
    if TEdit(Sender).Text = '' then
      [...]
  end;
end;

[gcvoiron]

Merci beaucoup pour vos réponses.
Je me penche sur la réponse de Tardiff Jean-François que j'arrive mieux à comprendre.
J'ai en fait 10 champs, si ils sont vides le boutton "Enregistrer" qui permet de gérer les valeurs de ces champs (enregistrer dans un fichier XML) doit être grisé (button_enr.Enabled := False;).
Mais comment gérer ceci ?

Merci d'avance.

[Tardiff Jean-François]

Code :

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

1
2
3
4
 
procedure Form1.enabledbtn;
begin
  Button.enabled := (Edit.text <> '') and (Edit2.text <> '') and (Edit3.text <> ''); end;

appelez enabledbtn; partout ou necessaire

[evarisnea]

tu peux aussi utiliser une action que tu associera au bouton, et dans l'évènement OnUpdate de l'action tu met le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
  Action1.enabled := (Edit.text <> '') and 
    (Edit2.text <> '') and 
    (Edit3.text <> '') and 
    (Edit4.text <> '') and 
    (Edit5.text <> '') and 
    (Edit6.text <> '') and 
    (Edit7.text <> '') and 
    (Edit8.text <> '') and 
    (Edit9.text <> '') and 
    (Edit10.text <> '');

[gcvoiron]

Merci pour votre aide.

gcvoiron.

[gcvoiron]

[A supprimer, fausse manip]