遍历IHTMLElementCollection

Question

是否有迭代IHTMLElementCollection的方法？

如

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

我知道有一个名为_NewEnum属性，但它不是在德尔福的支持，就像我能理解。

更新： apperently链接IHTMLElement而不是IHTMLLinkElement

Answer 1

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

Answer 2

使用_NewEnum看起来像这样的代码。如果你确定你只在收集了链接元素的项目，你可以在内环的as IHTMLElement部分（与ELEM值类型）更改为as IHTMLAnchorElement（IHTMLLinkElement似乎是完全不同的东西）

uses MSHTML, ActiveX; 

var 
    collection:IHTMLElementCollection; 
    enum:IEnumVariant; 
    v:OleVariant; 
    u:IUnknown; 
    element:IHTMLElement; 
begin 
    //... 
    enum:=collection._newEnum as IEnumVariant; 
    while enum.Next(1,v,u)=S_OK do 
    begin 
    elem:=u as IHTMLElement; 
    //... 
    end;