Comment puis-je créer un Delphi objet à partir d'une classe de référence et d'assurer le constructeur de l'exécution?

Alexandre solution est excellent mais ne suffit pas dans certaines situations. Supposons que vous souhaitez mettre en place un TClassFactory classe où TClass les références peuvent être stockées au cours de l'exécution et de l'arbitraire d'un certain nombre de cas les retrouver plus tard sur.

Une telle classe d'usine ne sais rien sur les types réels des classes qu'il détient et ne peut donc pas les jeter dans leur fonction méta-classes. Pour appeler la bonne constructeurs dans de tels cas, l'approche suivante fonctionnera.

Tout d'abord, nous avons besoin d'une simple démonstration de classe (ne vous occupez pas des champs publics, c'est juste pour les besoins de la démonstration).

interface

uses
  RTTI;

type
  THuman = class(TObject)
  public
    Name: string;
    Age: Integer;

    constructor Create(); virtual;
  end;

implementation

constructor THuman.Create();
begin
  Name:= 'John Doe';
  Age:= -1;
end;

Maintenant on instancie un objet de type THuman purement par RTTI et avec le bon appel de constructeur.

procedure CreateInstance();
var
  someclass: TClass;
  c: TRttiContext;
  t: TRttiType;
  v: TValue;
  human1, human2, human3: THuman;
begin
  someclass:= THuman;

  // Invoke RTTI
  c:= TRttiContext.Create;
  t:= c.GetType(someclass);

  // Variant 1a - instantiates a THuman object but calls constructor of TObject
  human1:= t.AsInstance.MetaclassType.Create;

  // Variant 1b - same result as 1a
  human2:= THuman(someclass.Create);

  // Variant 2 - works fine
  v:= t.GetMethod('Create').Invoke(t.AsInstance.MetaclassType,[]);
  human3:= THuman(v.AsObject);

  // free RttiContext record (see text below) and the rest
  c.Free;

  human1.Destroy;
  human2.Destroy;
  human3.Destroy;
end;

Vous trouverez que les objets "human1" et "human2" ont été initialisés à zéro, c'est à dire, Nom=" et Age=0, ce qui n'est pas ce que nous voulons. L'objet human3 au lieu détient les valeurs par défaut fournies par le constructeur de THuman.

Noter, cependant, que cette méthode nécessite de vos classes pour avoir les méthodes constructeur avec pas de paramètres. Tous les ci-dessus n'a pas été conçu par moi, mais a expliqué brillantly et dans beaucoup plus de détails (par exemple, le c.Partie libre) dans Rob Amour à l'Angle technique.

Votre code légèrement modifié:

type
  TMyObject = class(TObject)
    MyStrings: TStrings;
    constructor Create; virtual;
  end;
  TMyClass = class of TMyObject;

constructor TMyObject.Create;
begin
  inherited Create;
  MyStrings := TStringList.Create;
end;

procedure Test; 
var
  C: TMyClass;
  Instance: TObject;
begin
   C := TMyObject;
   Instance := C.Create;
end;