Discussion :

[delphi2019]

salut dans la form1 j'ai deux composant (CheckBox1 , button1)
j'ai créer une procedure testCheckBox
Lors de l'exécution l'erreur suivant apparaît:
" E2003 Identificateur non déclaré : 'CheckBox1' "

voila la procedure :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure  testCheckBox  ;
begin
if CheckBox1.Checked then
 
   showmessage('CheckBox1 is Checked (oui)')
 
else
 showmessage('CheckBox1 is not Checked (non)');
end

la solution est de déclare paramètre :

Code :

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

procedure  testCheckBox (CheckBox1:TCheckBox) ;

Ma question est:
dans la procédure le composant CheckBox1 est Inconnu
Est-il possible de résoudre des problèmes sans utiliser paramètre de procédure ?

La raison pour laquelle je pose la question est: Si je veux utiliser un grand nombre de composant dans la procédure, par exemple, 20 composant (CheckBox,combobox.........) Ce serait beaucoup d'écrire est-il dans les paramètres
Je me suis dit qu'il y avait peut-être un meilleur moyen que celui-ci

[tourlourou]

Bonjour,
Il y a 2 cas de figure :

1. procédure spécifique d'une fiche, qui devrait donc connaître ses composants en en étant une méthode (procedure TForm1.TestCheckBox ) ;
2. procédure générique, donc passage par paramètre.

Si ta procédure est semi-générique (c'est le 3ème des 2 cas !) car ne s'intéresse qu'à une fiche à la fois, mais à tous ses composants d'un type donné, le seul paramètre à lui passer peut être la fiche, à charge pour la procédure de filtrer tous ses composants du bon type dans une boucle sur Components[ComponentCount-1].

[delphi2019]

merci tourlourou pour la réponse
Je suis intéressé par le premier cas
J'ai essayé la méthode et cela n'a pas fonctionné:

Code :

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

1
2
3
4
5
6
7
8
9
procedure  testCheckBox  ;
begin
if Form1.CheckBox1.Checked then
 
   showmessage('CheckBox1 is Checked (oui)')
 
else
 showmessage('CheckBox1 is not Checked (non)');
end

[Cirec]

Bonjour,

tourlourou pensait plus à ceci:

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
22
23
24
25
26
type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
    procedure testCheckBox;                        // <--------- 
  public
    { Déclarations publiques }
  end;
 
...
 
procedure TForm1.testCheckBox;
begin
  if CheckBox1.Checked then
    showmessage('CheckBox1 is Checked (oui)')
  else
    showmessage('CheckBox1 is not Checked (non)');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  testCheckBox;
end;

Cordialement,

@+

[delphi2019]

merci Cirec
Mais où vais-je le mettre le code suivant?

Code :

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

1
2
3
if CheckBox1.Checked then
 
   showmessage('CheckBox1 is Checked (oui)')

[Charly910]

Bonjour,

juste là ou Cirec l'a mis : dans la procédure TForm1.testCheckBox

A+
Charly