Bir sınıftan türeyen alt sınıfların listesi(Rtti)


   // Bir class'tan türeyen alt class'ların listesini döndürür

uses
   Rtti,
   TypInfo,
   Classes;

function GetSubClassList(AClass: TClass): TStrings;
var 
  atypes:TArray<TRttiType>;
  atype:TRttiType;
  alist:TStringList; 
begin
   r:=TRttiContext.Create;
   atypes:=r.GetTypes;

   alist:=TStringList.Create;
   for atype in atypes do
   begin            
      if (atype.TypeKind=tkClass) and atype.IsInstance and 
          atype.AsInstance.MetaclassType.InheritsFrom(AClass) 
         and (atype.Name<>AClass.ClassName) then
         begin
            alist.Add(atype.Name);
         end;
   end;
  //atype.AsInstance.BaseType.MetaclassType.ClassName
  Result:=alist;
end;


Kullanım :
ShowMessage(GetSubClassList(TControl).Text);

Yazar	Mesaj Konuyu Paylaş Konuyu Yazdır Google Delicious Digg StumbleUpon Windows Live Yahoo Bookmarks reddit Facebook MySpace Newsvine Furl Konu Bilgi Ara Konu Ayarları Yanıt Yaz Yeni Konu
turknetyazilim Üye Profili Özel Mesaj Yolla Bu kullanıcıya ait mesajları bul Üyenin Web Sitesie Git Arkadaş Listeme Ekle Moderator Group Kayıt Tarihi: 18.Ocak.2008 Bulundugu Yer: Balıkesir Online: Sitede Değil Gönderilenler: 214	Alıntı Cevapla Konu: Bir sınıftan türeyen alt sınıfların listesi(Rtti) Gönderim Zamanı: 20.Temmuz.2012 Saat 10:54
	// Bir class'tan türeyen alt class'ların listesini döndürür uses Rtti, TypInfo, Classes; function GetSubClassList(AClass: TClass): TStrings; var atypes:TArray<TRttiType>; atype:TRttiType; alist:TStringList; begin r:=TRttiContext.Create; atypes:=r.GetTypes; alist:=TStringList.Create; for atype in atypes do begin if (atype.TypeKind=tkClass) and atype.IsInstance and atype.AsInstance.MetaclassType.InheritsFrom(AClass) and (atype.Name<>AClass.ClassName) then begin alist.Add(atype.Name); end; end; //atype.AsInstance.BaseType.MetaclassType.ClassName Result:=alist; end; Kullanım : ShowMessage(GetSubClassList(TControl).Text);