如下略些例子:(可能大家很熟悉)aDBConnect := LoadPackage(DBPackages);dataModuleClass := GetClass('TConcreteDataModule');admGlobal :=TDataModule(TComponentClass(dataModuleClass).Create(Application));for iCounter := 0 to admGlobal.ComponentCount - 1 do
begin if UpperCase(admGlobal.Components[iCounter].ClassName) = 'TQUERY' then
begin aQuery := TQuery(admGlobal.Components[iCounter]);
DataSource1.DataSet := aQuery;
break; end;end;上面的例子是通过遍历获取bpl包中一query控件的程序。 请问大家,如果想动态调用bpl包中类的方法(而不是控件),怎么调用啊?请大家赐教一下。
begin if UpperCase(admGlobal.Components[iCounter].ClassName) = 'TQUERY' then
begin aQuery := TQuery(admGlobal.Components[iCounter]);
DataSource1.DataSet := aQuery;
break; end;end;上面的例子是通过遍历获取bpl包中一query控件的程序。 请问大家,如果想动态调用bpl包中类的方法(而不是控件),怎么调用啊?请大家赐教一下。
http://www.mdata.gr/MDataNews/DeveloperTips/advanceddynamicpackages.htm有兩種方法, 一種是虛方法調用
一種的用接口