Sınıf tipi referansı Delphi XE'de adıyla nasıl edinilir?

Question

Aslında, Rtti'yi genel bir yöntem olan bir girişimci için kullanmaya çalışıyorum. Şöyle çalışması gerekir:

• Ben çağıran

Bu yüzden bu sınıfın belirtilen yöntemini çağırarak işini yapacak

sınıf adı, yöntem adı ve argümanları vereceğiz Rtti bilgilerini almak ve çağırmak istediğim yöntemi aramak için sınıf referansına ihtiyacım var.

Çalışmak istediğim sınıfların bir sınıf referans listesini uygulamadan bunu yapmanın bir yolu var mı?

Answer 1

Adını kullanarak sınıf başvurusunu almak için, sınıfın Adını ileten TRttiContext.FindType işlevini kullanmanız ve AsInstance özelliğini kullanarak örneği almanız ve sonra sınıfın yapıcısını çağırabilirsiniz.

var 
    Instance : TRttiInstanceType; 
    ctx : TRttiContext; 
    mClass : TValue; 
begin 
    ctx := TRttiContext.Create; 
    Instance := ctx.FindType(ClassName).AsInstance; //ClassName is something like 'Classes.TStringList'; 
    mClass := Instance.GetMethod('Create').Invoke(Instance.MetaclassType,[]); 

    //do your stuff here 


end;