Discussion :

[fred_malette]

Bonjour,

Soit une classe A
Soit une classe B, dérivée de A

Comment convertir un tableau de A, dont je sais qu'il ne contient que des instances de B, en tableau de B ?

Merci !


(PS : si je cherche à faire ça, c'est pour pallier l'absence de généricité)

[kunnskap]

Une méthode qui recoit le tableau de A qui contient les instances de B et qui instancie un tableau de B puis insère les références des objets B du tableau A dans le tableau de B?
Ca se code à la main mais ça marche.
Par contre, l'absence de généricité, non. J'en utilise régulièrement dans mes projets. J'obtiens de beaux polymorphisme avec.
La seule généricité qui certes n'est pas permise et t'as peut être bloquée, c'est qu'instancier un tableau d'une classe X ou Y n'est pas possible car il faut explicitement déclarer ce genre de tableau....mais j'ai réglé le problème avec ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
PROCÉDURE GLOBALE _getTableauObjet(sNomClasse est une chaîne)
 
tabDyn est un tableau
SI sNomClasse <> "" ALORS
	sRésultatCompile est une chaîne = Compile("Proc_dynamique", "tabObjs est un tableau de " + sNomClasse +";RENVOYER tabObjs")
	SELON sRésultatCompile
		CAS "" : tabDyn <- ExécuteTraitement("Proc_dynamique", trtProcédure)
		AUTRE CAS : Erreur("Compilation impossible." + RC + ErreurInfo())
	FIN
FIN
RENVOYER tabDyn

Et l'appel de cette procédure se fait par:

Code :

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

1
2
tableauDyn est un tableau
tableauDyn <- _getTableauObjet(objet..Classe)

Et je retrouve mon polymorphisme en pouvant générer des tableaux de n'importe quoi.

[frenchsting]

+1 Excellent !

[fred_malette]

Excellent en effet, c'est pile poil ce que je cherchais, merci kunnskap !

[kunnskap]

De rien

[kunnskap]

HelloOoO

suite à de récentes modifs, la procédure que j'ai donnée en début de ce fil a été modifiée car:

-elle ne gérait pas le fait d'être en environnement multithread (au départ, elle n'avait pas besoin de le gérer mais désormais si) -> ceci a été réglé par l'utilisation de DonneGuid() dans le nom attribué à la procédure dynamique qui est compilée
-elle provoquait des fuites de RAM dans un environnement où elle pouvait être appelée plus de 100 000 fois au cours de la même exécution du programme. Elle ne génère que des tableaux d'objets, et par conséquent vous ne pourrez pas obtenir avec elle plus de N codes sources différents, N étant le nombre de classes du projet. Un cache a donc été implémenté via un tableau associatif de chaines qui au nom de la classe passée en paramètre fait correspondre la procédure dynamique déjà compilée et disponible en mémoire pour exécution immédiate. Dans l'environnement où elle se trouve, ce cache a permis de diviser par 10 le temps d'exécution et de ne plus engendrer de fuites de RAM (fuites de 1,3 gigas quand même...). Et au lieu de l'exécuter 100 000 fois, elle ne sera exécutée au maximum que N fois au cours de l'exécution du programme.

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
26
27
28
29
PROCÉDURE GLOBALE _getTableauObjet(sNomClasse est une chaîne)
 
tabDyn est un tableau
bExecuter est un booléen = Faux
sNomProc est chaîne
 
SI sNomClasse <> "" ALORS
	SI cGlobales.tabCacheCompileGetTabObj[sNomClasse]..Existe ALORS
		sNomProc = cGlobales.tabCacheCompileGetTabObj[sNomClasse]
		bExecuter = Vrai
	SINON
		sNomProc = "Proc_dynamique_"+DonneGUID(guidBrut)
		sRésultatCompile est une chaîne = Compile(sNomProc, "tabObjs est un tableau de " + sNomClasse +";RENVOYER tabObjs")
		SELON sRésultatCompile
			CAS ""
				bExecuter = Vrai
				cGlobales.tabCacheCompileGetTabObj[sNomClasse]=sNomProc
			AUTRE CAS
				//erreur("Compilation impossible _getTableauObjet." + RC + ErreurInfo())
				//Si multithreading, codez votre gestion d'erreur, pas de Erreur()!
		FIN
	FIN
 
	SI bExecuter ALORS
		tabDyn <- ExécuteTraitement(sNomProc, trtProcédure)
	FIN
FIN
 
RENVOYER tabDyn