delphi - 迭代 IHTMLElementCollection

Question

有没有办法迭代 IHTMLElementCollection？

比如

var
  e : IHTMLLinkElement;
elementCollection:IHTMLElementCollection;
begin
    for e in elementCollection do
      showmessage(e.caption);
end;

我知道有一个名为 _newEnum 的属性，但是据我所知，delphi 不支持它。

更新:显然链接是 IHTMLElement 而不是 IHTMLLinkElement

Answer 1

for I := 0 to Pred(elementCollection.length) do
begin
  e := elementCollection.item(I, EmptyParam) as IHTMLElement;
  //...
end;