Discussion :

[rvzip64]

Salut,

Je sais qu'il est impossible d'accéder au private d'une classe qui se trouve dans une autre unité; donc dans mon code je met toutes les classes dans la même unité.

Sauf que maintenant je voudrais découper ce code et le placer dans des unités différentes. En c# il existe le mot clef internal.
Est ce qu'il existe une astuce ou un mot clef similaire en delphi pour réussir à faire la même chose ?

Merci d'avance pour vos réponses

[Montor]

• change la visibilité des champs concernés
• creer une class helper

[rvzip64]

lol merci je m'en doute un peu qu'il fallait changé de visibilité, mais je met quoi ??? actuellement c'est en private et je veux pas que cela soit en public...

Et pour le Helper ? tu vois ça comment ?

[Andnotor]

protected.

[rvzip64]

protected c'est pour les héritages...
Ce n'est pas mon cas

[Andnotor]

Alors défini mieux ton besoin .

Tu veux découper ton code... Quel code si ce ne sont pas des classes ?
Tu veux accéder à des propriétés private depuis une autre unité sans les passer en public Impossible !

ps: Protected n'est pas plus spécifique à l'héritage que les autres portées.

[Montor]

lol merci je m'en doute un peu qu'il fallait changé de visibilité, mais je met quoi ??? actuellement c'est en private et je veux pas que cela soit en public...

Et pour le Helper ? tu vois ça comment ?

mes proposition uniquement avec protected

Une instance d'un object est proche d'un Rocord
acceder a FCount

Code :

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

1
2
3
4
5
TTest =class
 private
 FCount :integer;
 FLimit   :integer;
....

Code :

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

1
2
3
4
5
6
7
var
 g:TTest;
 P:Pinteger;
begin
  g:=TTest.create;
  P:=pointer(Integer(g)+sizeof(Pointer));//le premier champs sur un instance est le pointeur vmt
  ShowmessageFmt('%d',[P^]);

voir aussi le class TFiler

Code :

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

1
2
3
4
5
TTestV =class
 protedted
 FCount :integer;
 FLimit   :integer;
....

Code :

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

1
2
3
4
var
 g:TTest;
begin
 TTestV (g).FCount ;

[ShaiLeTroll]

Bon, tu as un exemple ultra Violent dans la FAQ : "Comment accéder aux variables privées d'une classe ?"

Sinon, encore dans la FAQ, Comment accéder aux méthodes 'Protected' d'une classe ?, c'est moins violent, et très simple, cela triche justement avec le protected et la visibilité dans une unité ...

Avec la méthode de Dr Who, tu peux utiliser un Record ou un objet intermédiaire pour encapsuler toutes les propriétés partagées,

Enfin, une méthode un peu verbeuse, sans aucune tricherie dans ton code tu rends le second objet totalement dépendant du 1er, il me semble que l'on pourrait même faire quelque chose d'élégant avec les interfaces ... une Composition classique donc :

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
type
  TPrivateObject = class(...)
  private
    Data: TSharePrivateObject;
  public
    procedure ShareWith(Obj: TObject);
  end;
 
procedure TPrivateObject.ShareWith(Obj: TObject);
begin
  // Ici on pourrait ouvrir un peu plus avec une Interface, voir "Utilisation de l'opérateur as avec des interfaces"
  if Obj is TFriendObject then
  begin 
    TFriendObject(Obj).Associate(Data);
  end;

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
  TFriendObject = class(...)
  private
    ExternalData: TSharePrivateObject; 
  public
    constructor Create(Parent: TPrivateObject);
 
    procedure Associate(Data: TSharePrivateObject);
  end;
 
constructor TFriendObject.Create(Parent: TPrivateObject);
begin
  inherited Create();
 
  Parent.ShareWith(Self);
end;
 
procedure TFriendObject.Associate(Data: TSharePrivateObject);
begin
  ExternalData := Data; // Si Objet, c'est aussi simple que cela, sinon avec des Record, il faut passer par des Pointeurs ...
end;

A toi de voir si Parent est obligatoire, et de gérer dans ce Assigned avant chaque utilisation de ExternalData

[Montor]

Un champs private qui est accessible depuis une autre unité n'est pas vraiment privé
toutes les solutions oblige le passage par protected hiretage helper interface sauf si tu découpe la classe en plusieurs
"il faut penser hier"
si tu trouve maintenant ta classe est lourde et difficile pour la maintenance