关于Package的动态调用问题。
如下略些例子:(可能大家很熟悉)
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包中类的方法(而不是控件),怎么调用啊?请大家赐教一下。