Discussion :

[maredami]

Bonjour,

J'utilise une TObjectList pour contenir mes différents composants instanciés.

Chaque composant possède une même propriété Couleur.

Pour accèder à cette propriété, je dois caster l'objet que je veux utiliser.

Le problème est que je ne connais pas à l'avance l'objet.

J'aimerais donc faire un cast "dynamique" selon le type d'objet. J'ai essayé avec la propriété ClassName :

Code :

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

liste.Items[0].ClassName(liste.Items[0]).maPropriete

Mais ça ne fonctionne pas et c'est normal.

Comment pourrais-je faire ?

[Graffito]

Bonjour

Il me semble que ce que tu devrais écrire est plutot :

Code :

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

ClassName(liste.Items[0]).maPropriete

[maredami]

Bonjour

Il me semble que ce que tu devrais écrire est plutot :

Code :

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

ClassName(liste.Items[0]).maPropriete

ClassName n'accepte pas d'arguments.... je viens d'essayer.

Par contre

Code :

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

1
2
 
liset.Items[0].ClassName;

retourne le nom de la classe de l'objet.

Mais ensuite, comment caster l'objet avec ce string récupéré ?

[neilbgr]

Si les objets contenus dans la liste ont un ancêtre commun qui a la propriété couleur alors effectivement tu peux caster sauvagement :

Code :

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

TNomDeLaClasseAncetre(liste.Items[i]).Couleur := clRed;

Si les objets contenus dans la liste ont assurément une propriété couleur (TColor) et qu'ils hérite directement ou pas de TPersistent, alors avec RTTI on peu valoriser directement: (cf. la FAQ)

Code :

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

SetOrdProp(liste[i], 'Couleur', clRed);

Enfin, si tes items sont tous des descendants de TComponent, préférer un TComponentList au TObjectlist car le TComponentList est, en plus, automatiquement notifié si un de ses items est libéré (.Free) par n'importe qui n'importe où.

[maredami]

Si les objets contenus dans la liste ont un ancêtre commun qui a la propriété couleur alors effectivement tu peux caster sauvagement :

Code :

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

TNomDeLaClasseAncetre(liste.Items[i]).Couleur := clRed;

Vu que c'est un test que je veux faire, j'essaie cette solution.

Code :

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

1
2
 
if(TNomDeLaClasseAncetre(liste.Items[0]).Couleur = clInfoBk) then...

Mais le problème est que je ne connais pas TNomDeLaClasseAncetre à l'avance. Je peux le récupérer avec ClassName mais je ne sais pas comment faire le cast après vu que ClassName retourne un String...

[neilbgr]

Essais donc la 2eme méthode. Car là on a pas besoin du nom de la classe. Tu donnes l'objet, le nom de la propriété.
Maintenant, si tu veux LIRE au lieu d'ecrire dedans, c'est aussi "compliqué" :

Code :

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

1
2
3
4
  if GetOrdProp(Liste[vIndice], 'Couleur')=clRed then
    begin
 
    end;

Ne pas oublier de faire le uses de TypInfo

[LadyWasky]

Tu as combien de types de composants possibles ?

Parce qu'avec une méthode surchargée celà pourrait fonctionner...

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
 
Interface
  function ObtenirCouleur(UnItem:TClasse1):TColor; overload;
  function ObtenirCouleur(UnItem:TClasse2):TColor; overload;
  function ObtenirCouleur(UnItem:TClasse3):TColor; overload;
  function ObtenirCouleur(UnItem:TClasse4):TColor; overload;
  function ObtenirCouleur(UnItem:TClasse5):TColor; overload;
 
implementation
 
function ObtenirCouleur(UnItem:TClasse1):TColor;
begin
  Result:=UnItem.couleur;
end;
 
// etc pour les autres types
...
 
//puis
var UneCouleur:TColor;
begin
  //si l'item possède une propriété PUBLIEE (published) qui s'appelle couleur
  if (liste.Items[0] as liste.Items[0].ClassType).FieldAddress('couleur')<>nil
  then UneCouleur:=ObtenirCouleur((liste.Items[0] as liste.Items[0].ClassType));
end;

ou bien... :

Code :

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

1
2
3
4
5
6
var UneCouleur:TColor;
begin
  //si l'item possède une propriété PUBLIEE (published) qui s'appelle couleur
  if (liste.Items[0] as liste.Items[0].ClassType).FieldAddress('couleur')<>nil
  then UneCouleur:=(liste.Items[0] as liste.Items[0].ClassType).Couleur;
end;

J'ai pas testé tout ça mais ça devrait fonctionner

[maredami]

Ok, merci bien pour ces indications !

Je vais essayer la méthode de neilbgr.

Pourquoi qui suit ne fonctionne pas en sachant que la propriété Selected est Boolean ?

Code :

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

1
2
 
if(GetOrdProp(liste[i], 'Selected')) then

Mais, en ce qui concerne le cast "dynamique", vous auriez pas une idée ?

J'en aurais besoin pour d'autre fonctionnalités comme

Code :

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

1
2
 
TNomDeLaClasseAncetre(PopupMenu1.PopupComponent);

Suis-je obligé de faire un switch ClassName case... ?

[tourlourou]

et pourquoi pas :

Code :

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

1
2
3
4
5
6
7
8
 
for i:=0 to List.Count-1 do
 try
   with List[i] as List[i].ClassType
     do color:=clLime;
 except
    on Exception do Continue;
 end;

[maredami]

et pourquoi pas :

Code :

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

1
2
3
4
5
6
7
8
 
for i:=0 to List.Count-1 do
 try
   with List[i] as List[i].ClassType
     do color:=clLime;
 except
    on Exception do Continue;
 end;

joli ça, mais ça ne fonctionne que pour une affectation.

par exemple :

Code :

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

1
2
3
4
5
6
7
8
 
for i:=0 to List.Count-1 do
 try
   with List[i] as List[i].ClassType
     do uneVariable := color;
 except
    on Exception do Continue;
 end;

ne fonctionne pas.

Alors j'essaie

Code :

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

1
2
3
4
5
6
7
 
for i:=0 to List.Count-1 do
 try
   uneVariable := List[i].ClassType(List[i]).color;
 except
    on Exception do Continue;
 end;

mais ça ne fonctionne pas

[LadyWasky]

Salut,

Je suis sur que ceci va marcher

Code :

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

1
2
3
4
5
for i:=0 to List.Count-1 do
 try
   if IsPublishedProp(List[i], 'Color') and PropIsType(List[i], 'Color', tkInteger) then
      uneVariable :=TColor(GetOrdProp(List[i], 'Color'));  
 end;

en admettant que UneVariable soit un TColor...

[LadyWasky]

Ok, merci bien pour ces indications !

Je vais essayer la méthode de neilbgr.

Pourquoi qui suit ne fonctionne pas en sachant que la propriété Selected est Boolean ?

Code :

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

1
2
 
if(GetOrdProp(liste[i], 'Selected')) then

parce que GetOrdProp renvoi un integer, il faut donc caster le résultat (et puis il a une parenthèse de trop) :

Code :

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

1
2
 
if boolean(GetOrdProp(liste[i], 'Selected') then

Ok, merci bien pour ces indications !
Mais, en ce qui concerne le cast "dynamique", vous auriez pas une idée ?

J'en aurais besoin pour d'autre fonctionnalités comme

Code :

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

1
2
 
TNomDeLaClasseAncetre(PopupMenu1.PopupComponent);

Suis-je obligé de faire un switch ClassName case... ?

Pas forcément, qu'est ce que tu veux faire avec PopupMenu1.PopupComponent ? Accéder à une méthode particulière ou à une propriété ? Et pourquoi la classe ancètre du composant pointé par PopupComponent ?

[maredami]

Pas forcément, qu'est ce que tu veux faire avec PopupMenu1.PopupComponent ? Accéder à une méthode particulière ou à une propriété ?

C'est pour savoir quel composant a été cliqué à l'aide du popupmenu.

Et pourquoi la classe ancètre du composant pointé par PopupComponent ?

Erreur, je cherche à caster en classe de l'objet -> TNomDeLaClasse

[LadyWasky]

Pas forcément, qu'est ce que tu veux faire avec PopupMenu1.PopupComponent ? Accéder à une méthode particulière ou à une propriété ?

C'est pour savoir quel composant a été cliqué à l'aide du popupmenu.

excuses moi, je reformule ma question, que veux tu faire avec le dit composant sur lequel tu sais que tu as cliqué ?
faire Composant.quelquechose; ?
Obtenir quelle information ?

Et pourquoi la classe ancètre du composant pointé par PopupComponent ?

Erreur, je cherche à caster en classe de l'objet -> TNomDeLaClasse

OK, donc ça rejoint ma question précédente...

[maredami]

Ce que j'essaie de faire depuis le début est de caster un objet en son type de départ pour pouvoir l'utiliser comme tel ensuite.

Mon souci est qu'il n'est visiblement pas possible d'effectuer un cast dynamique.

J'en déduis donc qu'il faut passer par un switch case.

-> TObjectList pratique quand on stocke un seul type d'objet, sinon...

[maredami]

Personne n'a jamais eu ce problème en utilisant des TObjectList ? :o

Vous les utilisez toujours avec un seul type d'objet ?

[LadyWasky]

Ce que j'essaie de faire depuis le début est de caster un objet en son type de départ pour pouvoir l'utiliser comme tel ensuite.

Si, mais si tu connais son type...
De toute façon, si tu veux l'utiliser tel quel il faut que tu connaisse son type au moment ou tu programmes. Ou du moint que tu en ai une idée.
Pour les composant visuels, au pire, tu peux tester si ce sont des TWinControl ou des TGraphicControl, de toute façon, c'est soit l'un soit l'autre, ça fera pas plus de ligne de code.

Mon souci est qu'il n'est visiblement pas possible d'effectuer un cast dynamique.

Ben si, en connaissant le type vers lequel tu veux caster, sinon non...

J'en déduis donc qu'il faut passer par un switch case.

Bonne déduction...

-> TObjectList pratique quand on stocke un seul type d'objet, sinon...

ha ça, c'est sur que si tu veux y stocker 36000 objets de type différents....

[LadyWasky]

Personne n'a jamais eu ce problème en utilisant des TObjectList ? :o

Vous les utilisez toujours avec un seul type d'objet ?

Non Aucun pour ma part.

[maredami]

Ok, merci pour tout ! Vraiment sympa !

Vu que l'utilisateur de mon programme pourra ajouter n'importe quel composant de ma liste et le nombre qu'il veut, je serai obligé d'utiliser un Switch Case pour déterminer sur quel type de composant il clique...

J'ai pas fini de m'amuser...

[LadyWasky]

Ok, merci pour tout ! Vraiment sympa !

Vu que l'utilisateur de mon programme pourra ajouter n'importe quel composant de ma liste et le nombre qu'il veut, je serai obligé d'utiliser un Switch Case pour déterminer sur quel type de composant il clique...

J'ai pas fini de m'amuser...

En fait, tu t'en moque, la plupart du temps, de savoir sur quel composant il clique !

Ce qui est important c'est ce que tu veux en faire après de ce composant.

Par exemple, si c'est pour changer sa Hauteur, tu le castes en TControl, dont héritent absolument TOUS les composants visuels, comme ceci :

Code :

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

TControl(PopupMenu1.PopupComponent).height:=150;

Si c'est pour changer la couleur, comme la propriété Color de TControl est protégée, il faut que tu crée une classe qui dérive de TControl (voir la FAQ ici : http://delphi.developpez.com/faq/?pa...#protectedhack

et ça te donne (que ce soit un TImage, un TButton, un TShape ou un TPanel, etc...) :

Code :

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

1
2
3
4
5
6
7
type TPublicControl=class(TControl);
...
begin
...
  TPublicControl(PopupMenu1.PopupComponent).Color:=clRed;
...
end;

Et hop, ça te change la couleur de (presque) tous les Contrôles surle quel ton utilisateur à cliqué... Ca ne fait pas 10000 lignes de code.