加入"Microsoft HTML Object Library (Version 4.0)" 到Delphi中生成MSHTML,编译出错

Question

遇到这种情况时，有两个办法解决：
1、对于属性设置和读取，直接使用属性，不要用Set和Get方法。
2、在自动生成的类型库文件中修改这些方法的作用域。比如从Private移出到Public。—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 1

D5是正常的。D6才有这个错误。将出错的行数注释掉就没问题了。