Discussion :

[Higgins]

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 :

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

[ShaiLeTroll]

TClasse1 est une classe pas une metaClass

Code :

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

TMaClasseClass = class of TMaClasse

Code :

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

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

[Higgins]

TClasse1 est une classe pas une metaClass

Code :

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

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

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

Code :

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

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

Merci pour ton aide

[ShaiLeTroll]

Pour le dire autrement

Code :

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

var   classeG :TMaClasse;

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

Code :

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

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 :

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

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 !

[ShaiLeTroll]

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

Code :

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

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

Merci pour ton aide

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

[Higgins]

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