Discussion :

[Tchaill39]

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 ????????

[J-P-B]

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

[vingt-huit]

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.

[Tchaill39]

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 ??????

[vingt-huit]

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 ...

[J-P-B]

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

[sjrd]

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

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

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