TCollection d'élements différents

Bonjour à tous.

Je suis entrain de réfléchir à une structure de TCollection qui pourrait contenir plusieurs dérivés de TCollectionItems.

Par exemple Videotheque = Class (TCollection) possèdrait une liste d'Items de TFilm00 = Class (TCollectionItem) et de TDessinAnime00 = Class (TCollectionItem).

Est-ce possible avec ce type de classe? Comment faire avec la propriété Items qui peut avoir alors 2 types de retour ????????

Salut

A première vue, le TCollection n'est pas prévu pour gérer plusieurs classes différentes pour ses items.
C'est notamment dû au "Add" (statique) qui utilise la classe définie une fois pour toute à la création de la collection.

Mais sil existe des possibilités pour gérer des propriétés à classe variable, mais il faut manipuler des éditeurs de propriétés ... c'est encore plus compliqué que de se passer du TCollection et refaire un autre éditeur de collection

JP

Une idée pourrait être de s'arranger pour que TFilm00 et TDessinAnime00 soit les descendants d'une classe ancêtre commune TMedia. Ensuite on encapsule cette classe ancêtre commune dans un descendant de TCollectionItem, disons TMediaItem.

On aurait donc :
- TMedia = class
- TFilm = class(TMedia)
- TDessinAnime = class(TMedia)

Ensuite pour la collection proprement dite :
- Videotheque=Class(TCollection)
- TMediaItem=Class(TCollectionItem)

Pour l'instanciation de videotheque :
- Videotheque.Create(TMediaItem).

Une méthode pour donner à TMediaItem la classe encapsulée :
- TMediaItem.AffecterMedia(unMedia : TMedia).
Et une méthode pour récupérer l'objet TMedia :
- TMediaItem.Media : TMedia.

Pour pouvoir faire quelque chose de TMedia, une méthode commune appelable par les classes dérivées comme :
- TMedia.Play ; virtual ;

A l'arrivée pour ajouter un film à la vidéothèque
- Videotheque.Add.AffecterMedia(TFilm.Create) !
et pour un dessin animé
- Videotheque.Add.AffecterMedia(TDessinAnime.Create) ;

Pour jouer quelque chose de la bibliothèque ...
Videotheque[i].Media.Play

C'est pas forcément optimal (il faut deux objets par élément de la bibliothèque un TMedia et un TMediaItem) mais cà devrait marcher.

C'est également extensible, par exemple :
TImageMedia = class(TMedia) et
TMP3Media = class(TMedia).
Tout dépend de la méthode Play de chaque class TMedia dérivée.

Bon. Ce que tu demandes, c'est pas facile :aie:

D'abord : es-tu certain d'avoir besoin de TCollection ?
Si c'est dans le cas d'une création de composant, avec une propriété de type collection ; alors oui.
Si tu as juste besoin d'une liste d'objet, ben utilise TObjectList, qui est faite pour.

Bon maintenant si tu as vraiment besoin de la collection, je ne vois vraiment pas comment tu pourrais faire :? Au pire tu pourrais faire que ta classe élément de collection contienne elle-même la vraie référence à l'objet réel (dont la classe peut alors changer). Mais à moins de trafiquer les RTTI de ta classe, tu ne pourras pas en profiter en design-time :mrgreen:

Donc à mon avis réfléchis d'abord bien à si tu as besoin du design-time ou pas ;)

En fait je ne charche pas vraiment à avoir des propriétés, procedures ou fonctions communes entre es types TFilm00 et TDessinAnime00. Ils sont très différents.

Ma classe Vidéothèque existe et contient déjà une liste de référence TFilm00. Dans mon code, j'ai plein d'appels de partout à ces films.

Je dois ajouter les dessins animés. Ce qui m'interresse étant la notion d'ordonnancement des différents objets Film et Dessin animés.....

Comment puis-je faire alors ??????:?

Pour la propriété items, si Film00 et DessinAnime00 sont tous deux des CollectionItem, on devrait pouvoir faire :
- if videotheque[i] is TFilm00 then
else
if videotheque[i] is TDessinAnime00 then ...

sjrd a tout à fait raison !

ton TVideotheque est-il déjà un TCollection ?
et surtout, a tu besoin de créer ces éléments à la conception, c'est à dire avoir l'éditeur de propriété du TCollection, ou est-ce juste à l'exécution ?
ça change complètement les données du problème

Oui, mon TCollection est déjà en place

Non, je n'ai pas besoin de l'éditeur de propriété à la conception. Ce n'est qu'à l'execution.

Je réflechit sur la solution de vingt-huit et à première vue ca peut me convenir. Je vous tiens au courant

Merci à tous

Citation:

---

Envoyé par Tchaill39

Je réflechit sur la solution de vingt-huit et à première vue ca peut me convenir. Je vous tiens au courant

---

Ca ne marchera pas. Justement à cause du caractère statique de la classe des éléments d'une collection.

Si tu n'as pas besoin du design-time, débarrasse-toi de ta collection, et utilise une TObjectList, si nécessaire dérivée.

Désolé de te faire refaire le boulot :( Mais tu ne parviendras pas à faire ce que tu veux avec la collection, parce qu'elle n'est pas prévue pour. Ce qui est prévu pour, c'est la TObjectList (sorte de TStringList pour les objets).

ce que je peux faire c'est une feinte, car c'est impensable de virer la collection. J'ai regarder et c'est trop de boulot : pas le temps.

Ce que je vais proposer est pas très élégant mais bon, ca devrait marcher :

Je garde ma classe Videotheque qui est une collection de TMedia, un TCollectionItem. D

Dans ce TMedia, j'ai un champ qui m'indique quel type (film, dessin animé .....) et j'ai une donnée qui donne soi les parametres d'un film, soit ceux d'un dessin animé.

Ce n'est plus complétement de l'obet mais ca me suffira pour assurer la seule fonctionnalité recherchée qui est l'ordonnancement de mes différents medias

Merci à tous pour vos réflexions

salut

tiens moi je pensait qu'avec delphi on pouvait faire du polymorphisme
on m'aurait menti ?
en quoi le fait que cela soit statique enpeche de creer un item
decendant d'un itemcolection
la seul contrainte et de le caster a la sortie
tout comme on le ferait avec un tlist


@+ Phil

Le problème c'est que l'éditeur de propriété va appeler la méthode "Add" du TCollection, qui va créer une instance avec la classe passée dans le Create, et non son descendant éventuel.
Ca aurait pu marcher si il existait une méthode GetCollectionItemClass virtuelle qui serait appelée à chaque add.

Dans le TList, c'est toi qui crée d'abord les éléments (avec leur vrai classe) et qui les ajoutes à la liste.

salut

il a dit qu'il se fichai de l'editeur de propriete
donc rien ne t'empeche de creer

quand tu redefinie ta collection tu fait un truc du genre

Code:

---

1 2 3 4 5 6 7 8 9 10

function TMaCollecyion.Add: TMyItem; begin result := inherited Add as TMyItem; end;   function TMaCollection.GetItem(Index: Integer): TMyItem; begin result := inherited Items[Index] as TMyItem; end;

---

a partir de la rien ne t'empeche de redefinir deux fonction add

Code:

---

1 2 3 4 5 6 7 8 9

function TMaCollection.AddItem1: TMyItem1; begin result := inherited Add as TMyItem1; end;   function TMaCollection.AddItem2: TMyItem2; begin result := inherited Add as TMyItem2; end;

---

il suffit donc juste de type caster la propriete item au momment
ou tu recuper l'item

@+ Phil

La seule possibilité que je vois pour y arriver avec TCollection, ça serait de :

• Coder un pseudo-constructeur en assembleur, déclaré comme une simple procedure, pour que le compilo ne génère pas le code propre aux constructeurs ;
• Modifier la VMT pour mettre comme constructeur virtuel le pseudo-constructeur assembleur ;
• Ce pseudo-constructeur devrait parvenir à récupérer une variable de l'Owner qu'on lui passe en paramètre, pour rediriger la classe qu'il doit créer. Et avec celle-ci appeler le véritable constructeur en question.

L'autre solution c'est celle qu'on a énoncée plus haut : celle qui n'est plus tout à fait objet comme l'a fait remarquer Tchaill39.

Citation:

---

Envoyé par anapurna

quand tu redefinie ta collection tu fait un truc du genre

Code:

---

1 2 3 4

function TMaCollecyion.Add: TMyItem; begin result := inherited Add as TMyItem; end;

---

---

Là ça coince. le inherited Add va de toute façon créer un TTypeBase, et ensuite le as va déclencher une erreur ;)

salut

en fait par curiosité j'ai lu le source du tcollection et effectivement
ca coince de cette maniere car le type genere est declare globalement dans le create

par contre si tu lit bien le source le containner de tcollection n'est rien d'autre qu'un tlist

quand on regarde les sources de tcollection et tcollection item

il faut redefinir la fontion Setcollection de tcollectionitem

Code:

---

1 2 3 4 5 6 7 8 9

procedure TmonItem2.SetCollection(Value: TMaCollection); begin if FCollection <> Value then begin if FCollection <> nil then FCollection.RemoveItem(Self); if Value <> nil then Value.InsertItembis(Self); end; end;

---

et recreer une methode
InsertItemBis(Self) par exemple dans la tcollection

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TMaCollection.InsertItembis(Item: TCollectionItem); begin if not (Item is FItemClass) and not (Item is TmonItem2) and not (Item is TmonItem3) then TList.Error(@SInvalidProperty, 0); FItems.Add(Item); Item.FCollection := Self; Item.FID := FNextID; Inc(FNextID); SetItemName(Item); Notify(Item, cnAdded); Changed; NotifyDesigner(Self, Item, opInsert); end;

---

je ne pense pas que ce soit insurmontable

ensuite il suffit de recrrer des fonction add particuliere pour chaque collectionitem

il suffit donc de remplacer

Code:

---

1 2 3 4

function TMaCollection.Add : TMyItem; begin result := inherited add as TMyItem ; end;

---

par

Code:

---

1 2 3 4 5

function TMaCollection.AddMonITem2: TCollectionItem; begin Result := TmonItem2.Create(Self); end;

---

a priorie cela devrais pouvoir passer

@+ Phil