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