如何在 Inno Setup 的 TNewComboBox.Objects 属性中存储 COM 对象？

Question

我正在使用 Inno Setup 为我的应用程序创建安装程序。我当前正在使用当前计算机的 IIS 安装上的网站名称填充组合框 (TNewComboBox)。现在我真正想做的是将 COM 对象与字符串一起存储在组合的对象属性中，但即使将 COM 对象包装在 TObject(xxx) 调用中，仍然会出现类型不匹配错误。

我在其他地方读到，TStrings 对象应该有一个 AddObject 方法，但它似乎不存在于 Inno Setup/Pascal Script 中。

Answer 1

不要投射，只需将其包裹在一个对象中即可。

 Type
     TMyObjectForStringList = class 
                                fCOMThingy : variant;   // or ole variant
                                constructor create(comthingy:variant); 
                               end;

  constructor TMyObjectForStringList.Create(comthingy:variant);
  begin
    fcomthingy:=comthingy;
  end;

 myStringList.addobject(astring,TMyObjectForStringList.Create(avariant));

不要忘记事后释放它（Delphi 的 tstringlist 缺乏“释放所有”功能）

Answer 2

Delphi 的 TStrings 类确实有 AddObject方法，但似乎 Inno 的 PascalScript TStrings 包装器没有 。但是，您应该能够像这样设置它：

  Index := Strings.Add('text');
  Strings.Objects[Index] := TObject(xxx);