Create Class By Name
Issue #141
resolved
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)
-
reporter -
reporter - changed status to resolved
Resolve Issue #142
- Log in to comment
Resolve Issue #142