Discussion :

[fred64]

voila,

imaginons que j'ai une classe Classe1 TClasse1 comme suit :

Code :

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

1
2
3
4
5
6
7
...
	TClasse1 = class(TObject)
                ...
		public
			Classe2 : TClasse2  ;
			Compteur : Integer;
...

dans le constructeur de TClasse1 :

Code :

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

1
2
3
4
5
6
7
 
...
begin
   Classe2 := TClasse2  .Create;
   Compteur := 1;
end;
...

dans le destructeur je détruis Classe2:

Code :

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

1
2
3
4
5
6
...
begin
   FreeAndNil(Classe2);
   inherited Destroy;
end;
...

Mes questions :
1/ Comment puis-je depuis ma classe Classe2 faire reférence à la propriété Compteur de Classe1?
2 / Quelle est la différence entre ces 2 déclarations :
1 :

Code :

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

1
2
3
4
5
type TClasse = class
             Compteur: Integer;
       public
       private
       end;

2:

Code :

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

1
2
3
4
5
type TClasse = class
       public
             Compteur: Integer;
       private
       end;

En gros quelle est la différence de déclaré une propriété dans public ou juste après class

Merci à vous,


Fred

[Graffito]

Bonjour,

Pour utiliser dans classe2 le compteur de classe1, le plus simple est de déclarer dans classe2 une variable owner de type classe1 et après Classe2 := TClasse2 .Create; insérer Classe2.owner:=Class1.
Puis dans classe2, utiliser owner.compteur.

Attention, cette solution implique des références croisées entre classe1 et classe2. Donc, ces 2 classes dans la méme Unit, ou la clause uses Classe1 dans la partie implémentation de la classe2.

Pour la question public/private, je pense qu'on est par défaut dans la section Public après la déclaration de la classe.

[fred64]

Merci de tes réponses,

pour ta première solution j'en étais arrivé à coder exactement ce même mécanisme mais je m'étonnais de ne pas pouvoir faire autrement, en effet, je débute dans l'objet pure avec delphi ( avant je travaillais surtout avec les composants et des traitements simples, je ne me posais pas toutes ces questions !) et je m'étonnais naïvement qu'il n'y ait pas un mécanisme "prévu" pr cela.

pr ta seconde réponse, je pense également comme toi, mais comme je n'en étais pas sur et que je n'ai rien trouvé dans la doc à ce sujet, je voulais vérifier.

je laisse ouvert le topic si d'autres veulent bien confirmer/compléter/commenter ces propos

Fred

[slimjoe]

Bonjour!

La portée par défaut est published (qui est à peu près la même chose que public au niveau de la gestion des classes alors Graffito a quand même raison )

Pour ce qui est de l'accès à Compteur de Classe1 par Classe2, personnellement, je n'aime pas trop l'idée qu'une classe accède directement aux données de son propriétaire (mais c'est très perso, je ne veux pas imposer mon opinion à personne). C'est un peu plus compliqué à implémenter mais j'utiliserais des événements dans Classe2 qui indiquerait à Classe1 qu'il a besoin de Compteur. En travaillant avec des événements, je me suis rendu compte que, souvent, je n'avais même pas besoin d'accéder à la propriété directement mais juste d'informer la classe que la propriété pouvait être incrémentée par exemple (et c'est alors Classe1 qui incrémente).

Et ça donne quoi tout ça ? Ben ça donne que la Classe2 n'est plus dépendente de Classe1. Elle peut être construite et utilisée toute seule et ne se tapera pas un AccessViolation quand viendra le temps d'accéder à Compteur.

Voilà!

Bonne fin de journée!