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 Tersinden sırala
  Konuyu Paylaş Konuyu Paylaş  Konu Bilgi Ara Konu Bilgi Ara  Konu Ayarları Konu Ayarları
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ı: 21.Temmuz.2012 Saat 00:03
senin ki daha kullanışlı olmuş abi.
sende sağol :)
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.
Kasa Takip | Cari Takip | Evrak Takip | ETA SQL Mobil
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ı: 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
 Yanıt Yaz Yanıt Yaz

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



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