迭代IHTMLElementCollection

Question

有没有办法迭代IHTMLElementCollection？

如

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

我知道有一个名为_newEnum的属性,但是delphi中不支持它,因为我能理解.

update:apperently链接是IHTMLElement而不是IHTMLLinkElement

Answer 1

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