Rtti CallProc

   Merhaba
Nesnelerin, parametresiz prosedürlerini, isimden çağırmak için yazdığım bir prosedür.

uses
  Rtti,
  Classes;

procedure CallProc(AClass: TClass; AInstance: TObject;ProcedureName: string);
var
  r:TRttiContext;
  t:TRttiType;
  params:array of TValue;
begin
  r:=TRttiContext.Create;
  t:=r.GetType(AClass);
  t.GetMethod(ProcedureName).Invoke(AInstance,params);
  r.Free;
end;

Kullanım :
CallProc(TForm1,Form1,'Close');

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: Rtti CallProc Gönderim Zamanı: 20.Temmuz.2012 Saat 09:57
	Merhaba Nesnelerin, parametresiz prosedürlerini, isimden çağırmak için yazdığım bir prosedür. uses Rtti, Classes; procedure CallProc(AClass: TClass; AInstance: TObject;ProcedureName: string); var r:TRttiContext; t:TRttiType; params:array of TValue; begin r:=TRttiContext.Create; t:=r.GetType(AClass); t.GetMethod(ProcedureName).Invoke(AInstance,params); r.Free; end; Kullanım : CallProc(TForm1,Form1,'Close');

murat turan Üye Profili Özel Mesaj Yolla Bu kullanıcıya ait mesajları bul Üyenin Web Sitesie Git Arkadaş Listeme Ekle Admin Group Datakent Kayıt Tarihi: 01.Ekim.2003 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 1798	Alıntı Cevapla Gönderim Zamanı: 20.Temmuz.2012 Saat 20:43
	paylaşım için sağol İsmail, AClass: TClass; parametresi silinip, r.GetType(AClass); bölümü r.GetType(AInstance.ClassType); olarak değiştirilebilir.
	Kasa Takip \| Cari Takip \| Evrak Takip \| ETA SQL Mobil

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 Gönderim Zamanı: 21.Temmuz.2012 Saat 00:03
	senin ki daha kullanışlı olmuş abi. sende sağol :)