Delphi WebBrowser通过遍历Id查找元素是否存在

 

 Document := WebBrowser.OleObject.Document.getElementsByTagName(‘*澳门新葡亰3522平台游戏 ,’); 

  end; 

 for Id := 0 to Document.Length-1 do 

  Id:Integer; 

  begin 

end; 

function FindIds(Aid:String):Boolean; 

  if Document.item(Id).id = Aid then 

   Result := True; 

 begin 

  Document :Variant; 

   Exit; 

 Result   := False; 

{Delphi: }

 end; 

begin 

var