Discussion :

[JRagg]

Bonjour à tous,

Mon Delphi est un peu rouillé cela fait longtemps que je ne l'ai plus utilisé et j'ai besoin de vos lumières.
Voilà j'aimerai savoir si j'ai le droit d'écrire quelque chose comme cela. (Je reprend un code qui n'est pas à moi)

J'ai des variables déclarées en private :

Code :

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

1
2
3
4
 
  private
    { Déclarations privées }
    sMaVariable : string;

Du coup imaginons que j'ai ma procédure :

Code :

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

1
2
3
4
5
6
 
procedure TForm1.bouton1Click(Sender: TObject);
begin
  sMavariable := 'test'; 
  AppelProc();
end;

Code :

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

1
2
3
4
5
6
procedure appelProc();
begin
  // Ici je veux utiliser ma variable sMaVariable mais si je compile cela me met 'Identificateur non déclaré sMaVariable, ==> je suppose 
  // que c'est parce qu'il s'agit d'une déclaration private.Du coup je préfixe ma variable par le nom de ma Form :
  ShowMessage(Form1.sMaVariable.Value);
end;

Ici je veux utiliser ma variable sMaVariable mais si je compile cela me met 'Identificateur non déclaré sMaVariable, ==> je suppose que c'est parce qu'il s'agit d'une déclaration private, du coup je préfixe ma variable (ou même préfixer un composant ex form1.bitbtn1) par le nom de ma Form, j'ai le droit de faire cela ? C'est correct ?

Merci pour d'avance pour votre aide en tout cas.

[anapurna]

salut

la réponse est non

plus précisément
tans que tu te trouve dans la form tu as le droit d'y acceder ,la modifier, l'initialiser ... en fait c'est une variable quelquonque

par contre dans ton appel de procedure

Code :

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

1
2
3
4
5
6
7
 
procedure appelProc();
begin
  // Ici je veux utiliser ma variable sMaVariable mais si je compile cela me met 'Identificateur non déclaré sMaVariable, ==> je suppose 
  // que c'est parce qu'il s'agit d'une déclaration private.Du coup je préfixe ma variable par le nom de ma Form :
  ShowMessage(Form1.sMaVariable.Value);
end;

vu que la variable est en private tu ne devrais pas pouvoir accéder a cette élément en dehors de la form
le mieux est de passer ta valeur en paramètre lors de l'appel de fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
procedure appelProc(Variable : String);
begin
  // Ici je veux utiliser ma variable sMaVariable mais si je compile cela me met 'Identificateur non déclaré sMaVariable, ==> je suppose 
  // que c'est parce qu'il s'agit d'une déclaration private.Du coup je préfixe ma variable par le nom de ma Form :
  ShowMessage(Variable);
end;
 
procedure TForm1.bouton1Click(Sender: TObject);
begin
  sMavariable := 'test'; 
  AppelProc(sMavariable);
end;

[ALWEBER]

Bonjour,

Si tu passes ta variable en visibilité public cela devrait bien se passer

[Andnotor]

private équivaut à public dans la portée de l'unité courante. Pas de soucis de ce côté.

j'ai le droit de faire cela ? C'est correct ?

Bien sûr. Ce n'est pas une variable globale mais une variable propre à une instance d'objet, il faut bien cibler cet objet

[JRagg]

C'est bon on m'a expliqué.

En fait toutes les variables et composants étaient déclarés dans ma form :

Code :

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

1
2
3
4
TForm1 = class(TForm)
  sMaVariable : string;
  Edit1 : TEdit;
...

Du coup il faut que je crée ma procédure dans l'implémentation comme cela :

Code :

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

procedure appelProc()

Mais que dans mon code ma procédure elle-même soit précédée de :

Code :

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

1
2
3
4
procedure TForm1.appelProc();
begin
  ShowMessage(sMaVariable.Value);
end;

[ALWEBER]

Bonjour à tous,

Mon Delphi est un peu rouillé cela fait longtemps que je ne l'ai plus utilisé et j'ai besoin de vos lumières.
Voilà j'aimerai savoir si j'ai le droit d'écrire quelque chose comme cela. (Je reprend un code qui n'est pas à moi) ...

Juste pour info ce code marche si tu retires '.value' - Compilé sur XE3

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)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    sMaVariable : string;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure appelProc();
begin
  ShowMessage(Form1.sMaVariable);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  sMavariable := 'test';
  AppelProc();
end;