Fórum Variável tipo genérica em um formulário #453551

function TForm1.CriaInstancia<T>: T;
var
    valor: TValue;
    ctx: TRttiContext;
    tipo: TRttiType;
    metodo: TRttiMethod;
    tipoInstancia: TRttiInstanceType;
begin
    tipo := ctx.GetType(TypeInfo(T));
    metodo := tipo.GetMethod('Create');
    //
    if Assigned(metodo) and tipo.IsInstance then
    begin
        tipoInstancia := tipo.AsInstance;
        //
        valor := metodo.Invoke(tipoInstancia.MetaclassType, []);
        // cria parametros
        //
        Result := valor.AsType<T>
    end;
end;

  tteste = class
      teste: string;
  end;

 TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    function CriaInstancia<T>: T;
    { Private declarations }
  public
    variavelGenetica: ????????;

  end;

var
  Form1: TForm1;

implementation

uses RTTI;

{$R *.dfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
      vavriavelGenerica := TTeste;

       CriaInstancia<variavelGenerica>
end;