Question concernant Procedure

Version imprimable

14/09/2019, 12h19
delphi2019

Question concernant Procedure
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:

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:

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
14/09/2019, 14h51
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].

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:

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

Bonjour,

tourlourou pensait plus à ceci:

Code:

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,

@+

14/09/2019, 16h24
delphi2019
merci Cirec
Mais où vais-je le mettre le code suivant?
Code:

1 2 3 if CheckBox1.Checked then showmessage('CheckBox1 is Checked (oui)')
14/09/2019, 18h04
Charly910

Bonjour,

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

A+
Charly
14/09/2019, 21h09
delphi2019

je n'ai pas compris
S'il vous plaît expliquez-moi plus:D
15/09/2019, 10h13
tourlourou

En faisant de la procédure une méthode de la fiche, elle connaîtra automatiquement ses composants, évitant le problème que tu as rencontré en la déclarant comme une procédure standard.

Les méthodes d'objets (TForm1, ici) se déclarent dans le bloc de déclaration de type d'objet, comme l'a illustré Cirec, dans la section déclaration de l'unité (avant le mot-clef implementation).

Leur implémentation se fait dans la section ad-hoc, à la suite de ce mot-clef.

L'exemple qu'il a codé lance la méthode lors du clic sur un bouton.

c'est une question de base de programmation avec la différence entre une procédure et une méthode

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
 
type
  TForm1 = class(TForm)
    CheckBox1:TCheckBox; // c'est ici que CheckBox1 est déclaré
    Button1: TButton;
    procedure Button1Click(Sender: TObject); 
  private
    procedure testMethod; // ceci est une méthode de classe
  end;
 
var
  Form1: TForm1; // ici on a UNE instance de TForm1 (il pourrait y en avoir plusieurs)
 
implementation
 
procedure testProc; // ceci est une procédure
begin
  Form1.CheckBox1.Checked; // je dois passer par la variable globale Form1 pour atteindre une (des) instance(s) de TForm1
end;
 
procedure testProc2(Form: TForm1); // ceci est aussi une procédure
begin
  Form.CheckBox1.Checked; // ici j'ai accès à une instance en particulier qui m'est donnée en paramètre
end;
 
procedure TForm1.testMethod; // ici c'est une méthode de classe avec le paramètre implicite Self:TForm1
begin
  Self.CheckBox1.Checked; // la méthode (contrairement à la procédure) est liée à TForm1 et je vois directement tout ce qu'elle contient
  CheckBox1.Checked; // Self est optionnel je ne suis pas obligé de l'utiliser contrairement à d'autres langages où "this" est obligatoire.
 
  // je peux appeler
  testProc();  // utilise la variable globale
  testProc2(Form1); // c'est également la variable globale
  testProc2(Self); // cette instance si de TForm1 qui n'est pas forcément égale à Form1
end;
 
// de la même façon, testMethod est accessible suivant le même principe
 
procedure test1;
begin
  Form1.testMethod();
end;
 
procedure test2(Form: TForm1);
begin
  Form.TestMethod();
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.TestMethod();
  TestMethod();
end;

15/09/2019, 14h38
delphi2019

merci