Discussion :

[Higgins]

Bonjour,

Je souhaiterais savoir s'il est possible d'utiliser "RegisterClasses" avec des classes génériques.

Je m'en sers pour instancier dynamiquement des objets à partir du nom de classe.
Je n'ai aucun problème pour mes classes qui héritent de TPersistent , tout fonctionne bien

En revanche, j'utilise aussi des classes génériques

Code :

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

1
2
 
type ClasseGenerique<T:TMaClasse, constructor>= class(TPersistent)

que je voudrais, aussi, pouvoir instancier dynamiquement mais je n'arrive pas à les "enregistrer"

Code :

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

1
2
3
4
5
6
7
8
9
 
//[dcc64 Erreur] : E2003 Identificateur non déclaré : 'T'
registerClasses([ClasseGenerique<T>]);
 
//idem 
registerClasses([ClasseGenerique]);
 
//idem
registerClasses([ClasseGenerique<T:TMaClasse>]);

Existe-t-il une syntaxe ou une directive particulière ou est-ce tout simplement impossible?

[pprem]

A ma connaissance ce n'est pas possible mais tests quand même la bonne version :

registerClasses([ClasseGenerique<T:TMaClasse, constructor>]);

même si je n'y crois pas trop.

[Higgins]

A ma connaissance ce n'est pas possible mais tests quand même la bonne version :

registerClasses([ClasseGenerique<T:TMaClasse, constructor>]);

même si je n'y crois pas trop.

Je l'ai oublié dans ma liste mais je l'avais aussi testé sans succès

[Paul TOTH]

RegisterClass attends un définition de classe; "ClasseGenerique<T>" n'est pas une définition de classe, c'est la définition d'un generic.

tu pourrais par exemple appeler RegisterClass([ClasseGenerique<TButton>, ClasseGenerique<TEdit>])...encore que je ne suis pas certain du résultat vu que le className va être un peu douteux je suppose.

dans le generic, "T" peut être un peu n'importe quoi, mais ce n'est pas un paramètre, c'est une définition générique...donc enregistrer ce type n'est pas possible

[Higgins]

tu pourrais par exemple appeler RegisterClass([ClasseGenerique<TButton>, ClasseGenerique<TEdit>])...encore que je ne suis pas certain du résultat vu que le className va être un peu douteux je suppose.

Bien vu, je n'y avais pas pensé mais..ça ne fonctionne pas à l'exécution

[Higgins]

J'avais mis le tag "Résolu" avec l'idée de laisser tomber mais comme je suis persévérant (ou borné, têtu: choisissez l'expression qui vous convient) j'ai essayé d'approfondir la suggestion de Paul (qui compilait mais générait une erreur à l'exécution)
J'ai ajouté des classes génériques descendantes, que j'ai enregistrées avec RegisterClasses()

Code :

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

1
2
3
4
5
6
7
8
 
type ClasseGenerique<T:TMaClasse, constructor>= class(TPersistent)
....
Type GenMaClasse1=class(Classegenerique<TMaClasse1>);
Type GenMaClasse2=class(Classegenerique<TMaClasse2>);
.....
initialization
registerClasses([GenMaClasse1,GenMaClasse2])

ça fonctionne presque. A l'issue du code ci-dessous, lorsque j'évalue "UnObjet.classname" dans le debugger, il a bien le type TMaclasse1 ou TMaclasse2 attendu par contre, il ne passe pas dans le constructeur de ClasseGenerique<T:TMaClasse>

Code :

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

1
2
3
4
5
6
 
var unobjet:Tpersistent;
if choix1 then
   unObjet=getclass('TMaClasse1').create
else
   unObjet=getclass('TMaClasse2').create;

Du coup, j'ai modifié la déclaration de mes classes comme ceci:

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
 
type ClasseGenerique<T:TMaClasse, constructor>= class(TPersistent)
 public
     constructor Create;virtual;
end;
....
Type GenMaClasse1=class(Classegenerique<TMaClasse1>)
public
  constuctor create;override;
end;
 
.....
implementation
 
constructor GenMaclasse1.create;
begin
  Inherited create;
end;

Lors de l'exécution, le code ne passe jamais dans GenMaclasse1.create alors que la variable unObjet est bien créée avec le bon type. Est-ce que j'ai loupé quelque chose dans les déclarations?

[pprem]

Il faut transtyper le résultat de GetClass() qui retourne un TPersistentClass.

https://docwiki.embarcadero.com/Libr...asses.GetClass

[Higgins]

Il faut transtyper le résultat de GetClass() qui retourne un TPersistentClass.

Oui, c'est comme ça que je procède pour mes classes "standards" mais dans ce cas précis, si je transtype j'ai une violation d'accès lors de l'appel à create avant même d'arriver à mon point d'arrêt dans le constructeur
que ce soit avec

Code :

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

1
2
 
unObjet=ClasseGenerique<TMaClasse>(getclass('TMaClasse1')).create;

ou avec

Code :

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

1
2
 
unObjet=GenMaClasse1(getclass('TMaClasse1')).create;

J'avais remarqué que sans le transtypage explicite, je n'avais pas d'erreur. Le type affiché dans unObjet.classname étant correct, j'espérais qu'il y avait eu un transtypage implicite..