請問各位大大 var FMName : String; CRef : TPersistentClass; begin ..... CRef := GetClass(FMName); CRef.kk;<------這裡 ....... end; 因為不知道 是取得那個class 所以沒辦法寫成Tclass(CRef).kk; 有沒有像 Cref.GetFunction('kk'); 或是 GetXClass(Cref).kk 這樣的東西呢

class function 可以由 class 來呼叫, 也可以由 class 的實體呼叫 所以應可以由已知的 clss name 來 create class 的實體 再經由此實體呼叫 class function 參考這篇: http://groups.google.com.tw/group/borland.public.delphi.language.objectpascal/browse_thread/thread/1ef310acf0dd4567/334411dd0d01065c?q=getclass+%2B+%22class+function%22+%2B+delphi&rnum=13&hl=zh-TW#334411dd0d01065c

procedure TForm1.Button1Click(Sender: TObject); 
var
  MetaClass: TPersistentClass; 
  ComponentMetaClass: TComponentClass; 
  AForm: TComponent; 
begin 
  MetaClass := FindClass('TForm2'); 
  ComponentMetaClass := TComponentClass(MetaClass); 
  AForm := ComponentMetaClass.Create(Self ); 
  TForm(AForm).Show; 
end; 

-- hagar.

被呼叫的procedure需放在Published區段裡

procedure TForm1.Button1Click(Sender: TObject);
type
  TMyProc = procedure of object;
var
  MetaClass: TPersistentClass;
  MyProc : TMyProc;
begin
  MetaClass := FindClass('TForm2');
  TMethod(MyProc).Data := MetaClass;
  TMethod(MyProc).Code := MetaClass.MethodAddress('CallMe');
  if Assigned(MyProc) then
     MyProc;
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.