Свойства OleObject объектов в WebBrowser

[Cleric57]

Приветствую господа.
Простите за заголовок, ну ен знаю как сформулировать коротко свою мысль. В общем ситуация следующая. Вот html код:

<TD class=UserBattleAttack noWrap><BUTTON class=UserBattleRadio nTarget="0" nCount="0" bDisable="true">
<DIV class=UserBattleRadio><IMG class=Relative style="LEFT: 0px" src="http://img.combats.com/i/combats/damage.gif"><IMG class=Absolute style="LEFT: 0px" src="http://img.combats.com/i/misc/radio.gif"></DIV></BUTTON><SPAN class=UserBattle nTarget="0">&nbsp;удар в голову</SPAN></TD>
<TD></TD>
<TD class=UserBattleDefend noWrap><BUTTON class=UserBattleRadio nTarget="1" nCount="0" bDisable="true">
<DIV class=UserBattleRadio><IMG class=Relative style="LEFT: 0px" src="http://img.combats.com/i/combats/damage.gif"><IMG class=Absolute style="LEFT: 0px" src="http://img.combats.com/i/misc/radio.gif"></DIV></BUTTON><SPAN class=UserBattle nTarget="0">&nbsp;блок головы</SPAN></TD></TR>

Могу найти к примеру уникальный объект BUTTON через свойство webbrowser.OleObject.Document.all.I tem(i).nTarget - оно в ковычках, поэтому находит, а вот к примеру уникальный объект TD через свойство class программа не находит. А хочется... как быть?

var
   i: Integer;
   ovElements: OleVariant;
begin
  ovElements := wb.OleObject.Document.all;
  for i := 0 to (ovElements.Length-1) do
    begin
      if (AnsiUpperCase(ovElements.Item(i).tagName) = 'BUTTON') then
        try
          if ovElements.Item(i).nTarget = 1 then ovElements.Item(i).Click;
        except end; ;
      end;
end;

И можно ли проверить, существует ли вообще данное свойство, чтобы в try не загонять?

Заранее Спасибо!

[AntonB]

Может, поэкспериментировать с ovElements.Item(i).GetAttribute('nT arget',0)? GetAttribute возвращает значение элемента по имени. Если атрибут не имеет значения, то возвращается пустая строка.

Надеюсь, поможет))

[Cleric57]

Ага, заработало, спасибо...
<TD class=UserBattleAttack noWrap>
он находит через ovElements.Item(i).GetAttribute('cl assName',0)... Хм... не через class, а className именно! Сенкс...