Sayfayı Yazdır | Pencereyi Kapat

Rtti CallProc

Nereden Yazdırıldığı: Datakent
Kategori: Diğer bölümler
Forum Adı: Borland Delphi
Forum Tanımlaması: Borland Delphi ile ilgili soru / sorun / paylaşım bölümü
URL: http://forum.datakent.com/forum_posts.asp?TID=2391
Tarih: 01.Kasim.2024 Saat 04:02


Konu: Rtti CallProc
Mesajı Yazan: turknetyazilim
Konu: Rtti CallProc
Mesaj Tarihi: 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');


Cevaplar:
Mesajı Yazan: murat turan
Mesaj Tarihi: 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.



-------------
http://www.kasatakip.com - Kasa Takip  |  http://www.caritakip.com - Cari Takip  |  http://www.evraktakip.com - Evrak Takip  |  http://www.etasqlmobil.com - ETA SQL Mobil

Mesajı Yazan: turknetyazilim
Mesaj Tarihi: 21.Temmuz.2012 Saat 00:03
senin ki daha kullanışlı olmuş abi.
sende sağol :)


Sayfayı Yazdır | Pencereyi Kapat