Création dynamique d'une instance à partir du nom de la classe

Version imprimable

Bonjour,

Je voudrais créer dynamiquement un objet à partir de son nom de classe mais j'ai systématiquement une violation d'accès lors de l'appel à "create".
Pouvez-vous me donner votre avis sur cet exemple basique?

Code:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
program Project5;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils,system.Classes;
 
  type TMaClasse=class(Tpersistent)
   public
      constructor create;virtual;
  end;
 
  type TClasse1=class(TMaClasse)
  private
      fprop1:string;
     public
      constructor create;override;
      property prop1:string read fProp1 write fProp1;
  end;
 
  constructor TMaClasse.create;
  begin
     inherited create;
  end;
 
  constructor TClasse1.create;
  begin
      inherited create;
     prop1:='ok';
  end;
 
  var   classe1:TClasse1;
 
begin
  try
    RegisterClasses ([TMaClasse,TClasse1]);
    classe1:=TClasse1(getclass('TClasse1')).Create;  //Violation d'accès lors de la création de l'instance
    writeln(classe1.prop1);
    classe1.free;
    readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Remarque: Si j'instancie un objet de la classe de base (TMaCLasse), ça fonctionne

30/12/2022, 15h13
ShaiLeTroll

TClasse1 est une classe pas une metaClass

Code:

TMaClasseClass = class of TMaClasse

Code:

classe1:=TMaClasseClass (getclass('TClasse1')).Create;
30/12/2022, 15h25
Higgins

Citation:

Envoyé par ShaiLeTroll

TClasse1 est une classe pas une metaClass

Code:

classe1:=TMaClasseClass (getclass('TClasse1')).Create;

Voui... mais ça compile plus ("types incompatibles Tclasse1 et TMaClasse"):aie:
Pas grave, il suffit de transtyper le résultat de TMaClasseClass (getclass('TClasse1')).Create

Code:

classe1:=TClasse1(TMaClasseClass (getclass('TClasse1')).Create);

Merci pour ton aide :king:
30/12/2022, 15h27
ShaiLeTroll
Pour le dire autrement

Code:

var classeG :TMaClasse;

classeG est une référence d'objet de la classe TMaClasse

Code:

var MaMetaClasse: TMaClasseClass ;

MaMetaClasse est une référence de la classe TMaClasse

Rappel, TMaClasseClass est à TMaClasse ce qu'est TClass à TObjet ou TPersistentClass à TPersistent

Donc on peut décomposer MaMetaClasse référence de la classe et classeG référence d'objet (instance)
Code:

1 2 MaMetaClasse := TMaClasseClass(getclass('TClasse1')); classeG := MaMetaClasse.Create(); // permet l'utilisation du constructeur virtuelle.
classeG est dans une variable TMaClasse mais pointe sur une instance de TClasse1, polymorphisme de base !
30/12/2022, 15h31
ShaiLeTroll

Citation:

Envoyé par Higgins

Voui... mais ça compile plus ("types incompatibles Tclasse1 et TMaClasse"):aie:
Pas grave, il suffit de transtyper le résultat de TMaClasseClass (getclass('TClasse1')).Create

Code:

classe1:=TClasse1(TMaClasseClass (getclass('TClasse1')).Create);

Merci pour ton aide :king:

Oui mais cela n'a aucun sens d'affecter à une classe descendante TClasse1 avec une code générique à base de GetClass

Si tu types fortement, la généricité disparaît !
Toujours ce problème de confusion entre le type en DesignTime et le Type en RunTime qui peut être différent, il faut utiliser is et as, voir InheritsFrom pour gérer les transtypages en RunTime quand le type réel n'est pas connu en DesignTime
30/12/2022, 15h37
Higgins

Citation:

Envoyé par ShaiLeTroll

Oui mais cela n'a aucun sens d'affecter à une classe descendante TClasse1 avec une code générique à base de GetClass

Si tu types fortement, la généricité disparaît !

oui, bien sûr. Là j'avais fais un exemple court pour montrer mon problème mais à l'usage, la variable utilisée sera faiblement typée