我有一个单元定义TBla和初始化部分中的以下代码：
initialization
RegisterClass(TBla);
showMessage('registered');
这个单元在一个包内.好.
在按钮上单击我的应用程序,我有以下代码：
LoadPackage('C:\temp\testes_packs\pack1\Package1.bpl');
pc := GetClass('TBla');
if pc = nil then
ShowMessage('didnt work');
当我点击按钮时,会显示“已注册”消息.但是,’没有工作’也显示出来.这表示初始化wass被调用但由于某种原因寄存器类不起作用.
好的,为了证明LoadPackage是问题,我将我的单元(包含TBla类)直接包含在我的项目中并删除了loadPackage行,并且tada显示了’registered’消息并且getClass正常工作.
有任何想法吗？