双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

delphi BPL编程 RTTI和getClass 之间的脱节,请高手指点

2012-03-15 09:53:38 333 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

文熊墨衍会员 · AI 创作全网分发关注 + 加入社区

数学建模小白必看：层次分析法（AHP）从入门到实战（附Python代码）本文详细介绍了层次分析法（AHP）在数学建模竞赛中的应用，从构建判断矩阵到一致性检验，再到权重计算和实战案例。通过Python代码实现，帮助小白快速掌握AHP的核心技巧，解决评价类难题，提升建模效率。阅读详情

delphi先前BPL常用的方式是先在BPL模块中 RegisterClass(TMYForm);
然后在主程序中,使用getclass(TMYForm);再动态生成一个对象使用之.
新的RTTI编程,不需要注册,直接使用,方式如下
var
LContext: TRttiContext;
LPackage: TRttiPackage;
LClass: TRttiType;
aForm: TForm;
hPack: HMODULE;
begin
hPack := LoadPackage('orpFlow.bpl');
if hPack = 0 then
begin
ShowMessage('载入流程模块失败!');
exit;
end;
for LPackage in LContext.GetPackages() do
begin
if SameText(ExtractFileName(LPackage.Name), 'orpFlow.bpl') then
begin
LClass := LPackage.FindType('utMyMain.TMyForm');
if LClass <> nil then
begin
aForm := GetTypeData(LClass.Handle)^.ClassType.Create as TForm;
aForm.Create(Application);
aForm.Show;
这种方法可以实现基本功能.
问题在于:GetClass返回值是 TPersistentClass ,=class of TPersistent;
RTTI方式的返回值是TClass,=Class of TObject;
两者不一致!!!!!
在一些老的接口中,新的RTTI方式无法接上.
请问高手有什么方法,可以打通这个断崖,从而使得BPL编程更加有灵活性?

...全文