acces à une variable privé dans une classe

Version imprimable

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons;
 
type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
  procedure Explosion1;
    procedure SpeedButton1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end  ;
  Treg = class
  procedure Explosion1;  overload;
  procedure Explosion1 (Force: Integer); overload;
  procedure Explosion3 (Force, Vitesse: Integer);
  procedure Explosion4 (Force, Vitesse: Integer; Son: Boolean);
 
  private
  public
  protected
  id : integer ;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
 
procedure Treg.Explosion1();
begin
 
end;
 
procedure Treg.Explosion1(Force: Integer);
begin
 
end;
 
procedure Treg.Explosion3(Force, Vitesse: Integer);
begin
 
end;
 
procedure Treg.Explosion4(Force, Vitesse: Integer; Son: Boolean);
begin
 
end;
 
 
procedure TForm1.Explosion1();
begin
ShowMessage('helmi');
end;
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
reg : Treg;
begin
reg := Treg.Create();
reg.id := 555;
ShowMessage(IntToStr(reg.id));
reg.Free;
end;
 
end.

je peux accéder et modifier la variable id depuis une autre classe alors qu'elle est déclaré protected dans la classe Treg.
même chose si on met dans private

est ce normale? je ne comprend pas.

03/04/2010, 18h19
Archimède

Les classes Tform1 et TReg sont déclarées dans la même unité...
Si tu veux que les règles d'encapsulation soient vérifiées, il faut déclarer TReg dans une autre unité.

Fais le, tu verras qu'il n'est pas possible d'appeler reg.id...

et petite correction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
  Treg = class
  private
    fId : integer;
  protected
    property Id : integer read fId write fId;
  public
    procedure Explosion1;  overload;
    procedure Explosion1(Force: Integer); overload;
    procedure Explosion3(Force, Vitesse: Integer);
    procedure Explosion4(Force, Vitesse: Integer; Son: Boolean);
  end;

ce qui permet de faire :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
type
  TReg2 = class(TReg)
  public 
    property Id; 
  end;
 
  TReg3 = class(TReg)
  published
    property Id;
  end;

04/04/2010, 12h01
Jcpan

Merci bien d'avoir pris le temps de repondre :D
On est obligé de déclarer les variables en property ?
05/04/2010, 00h53
Dr.Who

pas obligatoirement si tu ne compte pas dériver ta classe ou que personne ne compte le faire.

mais c'est plus simple, surtout quand on mets des getters/setters
05/04/2010, 09h45
Franck SORIANO

Citation:

Envoyé par Jcpan

je peux accéder et modifier la variable id depuis une autre classe alors qu'elle est déclaré protected dans la classe Treg.
même chose si on met dans private

est ce normale? je ne comprend pas.

Delphi ne possède pas la notion de classe amie, ou de visibilité package des autres langages. C'est pourtant parfois bien pratique, voir indispensable si on veut pouvoir exposer une méthode à une classe utilitaire pour un usage donnée et qu'on ne veut pas la rendre visible pour les autres.

Pour "contourner" cette limitation (je dis contourner parce que quelque part, c'est la façon d'implémenter les classes amie de Delphi), les classes déclarées dans la même unités sont automatiquement "amies" et peuvent accéder aux membre privés et protégés des autres.

Ce mécanisme de visibilité a été renforcé à partir de BDS2006 avec la visibilité strict private et strict protected. Ces deux visiiblités correspondent à la définition traditionnelle des visibilités privé et protégé : Une classe ne peut pas accéder aux membres strict private d'une autre classe, même si elles sont définies dans la même unité.

A noter qu'en même que cette protection s'applique au niveau de la classe et pas au niveau de l'instance. Deux instances de la même classe peuvent accéder aux membres strict private de l'autre.
Il me semble que ce n'est pas le cas dans d'autres langages comme Java, où la protection s'applique à l'instance.
06/04/2010, 20h10
Jcpan

tite question, et ce que delphi a ces specifications (non standard) en ce qui concerne la POO, vu les editeurs venlent garder la compatibilité à travers les versions ?