关于Package的动态调用问题。

CRYSTAL_CN 2004-04-16 07:21:42
如下略些例子:(可能大家很熟悉)

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包中类的方法(而不是控件),怎么调用啊?请大家赐教一下。
...全文
62 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
aiirii 2004-04-19
  • 打赏
  • 举报
回复
參看
http://www.mdata.gr/MDataNews/DeveloperTips/advanceddynamicpackages.htm

有兩種方法, 一種是虛方法調用
一種的用接口
CRYSTAL_CN 2004-04-19
  • 打赏
  • 举报
回复
怎么没人回答???自己顶!

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧