Procedure et variable publique

Version imprimable

Bonjour à tous,

je pense que ma question est triviale mais je suis juste débutant en Delphi.

J'ai déclaré une variable public nommée nbcarac :

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
Interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    MainMenu1: TMainMenu;
    GnrerF21: TMenuItem;
    Quitter1: TMenuItem;
    VrifierEntre1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Quitter1Click(Sender: TObject);
    procedure GnrerF21Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure VrifierEntre1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
  nbcarac:integer;
     { Public declarations }

J'essaie d'y accéder dans une procédure nommée Generer() :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Procedure Generer();
var i : integer;
var tab : array[0..20] of string;
begin
Form1.label1.Caption:='';
Form1.Edit1.text:='';
for i  := 0 to nbcarac-1 do
    begin
    tab[i]:=chr(random(26)+65);
    Form1.Edit1.Text:=LowerCase(Form1.Edit1.Text+Tab[i]);
    end;
end;

Mais j'ai le message : Undeclared Identifier : 'nbcarac'

Où est le problème ? Comment déclarer la variable ou bien la procedure ?

Par avance, merci :)

Citation:
Envoyé par Nuclear88
Bonjour à tous,

je pense que ma question est triviale mais je suis juste débutant en Delphi.

J'ai déclaré une variable public nommée nbcarac :
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 Interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; MainMenu1: TMainMenu; GnrerF21: TMenuItem; Quitter1: TMenuItem; VrifierEntre1: TMenuItem; N1: TMenuItem; N2: TMenuItem; RadioButton1: TRadioButton; RadioButton2: TRadioButton; procedure FormCreate(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure Quitter1Click(Sender: TObject); procedure GnrerF21Click(Sender: TObject); procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure VrifierEntre1Click(Sender: TObject); procedure RadioButton1Click(Sender: TObject); procedure RadioButton2Click(Sender: TObject); private { Private declarations } public nbcarac:integer; { Public declarations }
J'essaie d'y accéder dans une procédure nommée Generer() :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Procedure Generer(); var i : integer; var tab : array[0..20] of string; begin Form1.label1.Caption:=''; Form1.Edit1.text:=''; for i := 0 to nbcarac-1 do begin tab[i]:=chr(random(26)+65); Form1.Edit1.Text:=LowerCase(Form1.Edit1.Text+Tab[i]); end; end;
Mais j'ai le message : Undeclared Identifier : 'nbcarac'

Où est le problème ? Comment déclarer la variable ou bien la procedure ?

Par avance, merci :)
C'est normal : Generer est une procédure et nbcarac est une variable publique (ou un menbre) de la classe TForm1
La procédure Generer ne peut accéder à la variable nbcarac qu'au travers de l'instance (Form1) de la classe (TForm1)
Donc pour accéder à cette variable :
Code:

1 2 for i := 0 to Form1.nbcarac-1 do
Mais c'est pas très beau et pas très souple comme méthode. Il vaut mieux passer l'instance et la variable en paramètres comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Procedure Generer(MaForm : TForm1; nbcarac : Integer); var i : integer; var tab : array[0..20] of string; begin MaForm .label1.Caption:=''; MaForm .Edit1.text:=''; for i := 0 to nbcarac-1 do begin tab[i]:=chr(random(26)+65); MaForm .Edit1.Text:=LowerCase(MaForm .Edit1.Text+Tab[i]); end; end;
L'appel de la procédure (sur un clic de bouton par exemple) se fera comme ceci :
Code:

1 2 3 4 5 procedure TForm1.Button1Click(Sender : TObject); begin Generer(Self,nbcarac); end;
Mieux encore mettre la procédure dans la classe TForm1 :
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 Interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; MainMenu1: TMainMenu; GnrerF21: TMenuItem; Quitter1: TMenuItem; VrifierEntre1: TMenuItem; N1: TMenuItem; N2: TMenuItem; RadioButton1: TRadioButton; RadioButton2: TRadioButton; procedure FormCreate(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure Quitter1Click(Sender: TObject); procedure GnrerF21Click(Sender: TObject); procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure VrifierEntre1Click(Sender: TObject); procedure RadioButton1Click(Sender: TObject); procedure RadioButton2Click(Sender: TObject); private { Private declarations } public { Public declarations } nbcarac:integer; Procedure Generer; end;
Et implémentation de la procédure comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Procedure TForm1.Generer; var i : integer; var tab : array[0..20] of string; begin label1.Caption:=''; Edit1.text:=''; for i := 0 to nbcarac-1 do begin tab[i]:=chr(random(26)+65); Edit1.Text:=LowerCase(Edit1.Text+Tab[i]); end; end;
Tu remarquera que je n'ai plus besoin de préfixer label1, Edit1 par Form1 car ils sont déclarés dans la même classe que la procédure Generer et sont donc accessible directement

Pour compléter si tu débute va voir les tutoriels sur Delphi ici : https://delphi.developpez.com/cours/ et la FAQ ici : https://delphi.developpez.com/faq/

24/10/2019, 13h18
Nuclear88

Merci pour toutes ces explications. Un grand merci aussi pour les petites subtilités ;)
Chuis heureux donc je passe en résolu :)

En langage pascal une variable publique est déclarée entre les mots interface et implémentation des unités et non dans une classe

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
 
unit ex01a;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  nbcarac:integer;
 
implementation
 
{$R *.dfm}
procedure Generer ;
var i : integer;
var tab : array[0..20] of string;
begin
Form1.label1.Caption:='';
Form1.Edit1.text:='';
for i  := 0 to nbcarac-1 do
    begin
    tab[i]:=chr(random(26)+65);
    Form1.Edit1.Text:=LowerCase(Form1.Edit1.Text+Tab[i]);
    end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
nbcarac := 6 ;
generer;
end;
 
end.

vous oubliez de proposer une écriture plus souhaitable qui déclare Generer comme une méthode de TForm1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
type
  Tform1 = class(TForm)
  ...
    procedure Generer;
  end:
 
...
 
Procedure TForm1.Generer(); // en tant que méthode de TForm1, ses membres sont visibles
var i : integer;
var tab : array[0..20] of string;
begin
  label1.Caption:='';
  Edit1.text:='';
  for i  := 0 to nbcarac-1 do
  begin
    tab[i]:=chr(random(26)+65);
    Edit1.Text:=LowerCase(Edit1.Text+Tab[i]);
  end;
end;

ça c'est pour la visibilité, mais ensuite dans le code ouille !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
type
  Tform1 = class(TForm)
  ...
    procedure Generer;
  end:
 
...
 
Procedure TForm1.Generer();
var 
  i : integer;
  Str: string;
begin
  label1.Caption:='';
  SetLength(Str, nbcarac); // alloue la chaîne une bonne fois pour toute
  for i  := 1 to nbcarac do // les chaînes sont indexées à partir de 1
  begin
    Str[i] := chr(random(26)+65); // choix du "i"ième caractère
  end;
  Edit1.Text := Str; // on place le toute dans le TEdit
end;