Préfixage de variable delphi

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:

---

1 2 3 4

private { Déclarations privées } sMaVariable : string;

---

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

Code:

---

1 2 3 4 5 6

procedure TForm1.bouton1Click(Sender: TObject); begin sMavariable := 'test'; AppelProc(); end;

---

Code:

---

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.

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:

---

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:

---

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;

---

Bonjour,

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

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

Citation:

---

Envoyé par JRagg

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

C'est bon on m'a expliqué.

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

Code:

---

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:

---

procedure appelProc()

---

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

Code:

---

1 2 3 4

procedure TForm1.appelProc(); begin ShowMessage(sMaVariable.Value); end;

---

Citation:

---

Envoyé par 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) ...

---

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

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

---