Create Class By Name

function CreateClasssByname( aClassName : String) : TClass;
//var
//compType : TRttiType;
begin
    {  compType:=vRTTIContext.FindType(clsName);
      if compType is TRttiInstanceType then
         compClass:=TRttiInstanceType(compType).MetaclassType;


         RttiInstanceType(compType).MetaclassType
}
   var rtti := RTTIRawAttributes;
   var i : Integer;
   for i:=Low(rtti) to High(rtti) do begin
      var attrib := rtti[i];
      if attrib.A.ClassName=aClassName then
      //if rtti[i].T = typeID then
         PrintLn(rtti[i].A.ClassName);

      is possible create Class by Name  ??

   end;
Tanks
Comments (2)
