Discussion :

[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 :

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
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 :

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

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

[sergio_is_back]

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 :

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
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 :

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

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 :

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

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 :

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

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 :

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

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 :

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
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 :

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

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/

[Nuclear88]

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

[ALWEBER]

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 :

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
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.

[Paul TOTH]

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

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
 
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 :

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
 
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;