Datakent Ana Sayfa
Anasayfa Anasayfa > Diğer bölümler > Borland Delphi
  Aktif Konular Aktif Konular RSS: Rtti CallProc
  Yardım Yardım  Hızlı Ara   Kayıt Ol Kayıt Ol  Giriş Giriş

Rtti CallProc

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
turknetyazilim Açılır Menü Göster
Moderator Group
Moderator Group
Simge

Kayıt Tarihi: 18.Ocak.2008
Bulundugu Yer: Balıkesir
Online: Sitede Değil
Gönderilenler: 214
  Alıntı turknetyazilim Alıntı  Yanıt YazCevapla Mesajın Direkt Linki 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');
Yukarı Dön
murat turan Açılır Menü Göster
Admin Group
Admin Group
Simge
Datakent

Kayıt Tarihi: 01.Ekim.2003
Bulundugu Yer: Turkey
Online: Sitede Değil
Gönderilenler: 1798
  Alıntı murat turan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki 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.

Yukarı Dön
turknetyazilim Açılır Menü Göster
Moderator Group
Moderator Group
Simge

Kayıt Tarihi: 18.Ocak.2008
Bulundugu Yer: Balıkesir
Online: Sitede Değil
Gönderilenler: 214
  Alıntı turknetyazilim Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 21.Temmuz.2012 Saat 00:03
senin ki daha kullanışlı olmuş abi.
sende sağol :)

Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Menü Göster



Bu Sayfa 0,156 Saniyede Yüklendi. [power by : WebWiz]