Как работать со всеми ячейками таблицы в WebBrowsere

Пример показывает как добавить содержимое каждой ячейки в TMemo:

procedure
 TForm1.Button1Click(Sender: TObject); 
var

  i, j: integer; 
  ovTable: OleVariant;
begin
 
  // Use first table
  ovTable := WebBrowser1.OleObject.Document.all.tags('TABLE').item(0);
 
  for
 i := 0 to
 (ovTable.Rows.Length - 1) do

  begin

    for
 j := 0 to
 (ovTable.Rows.Item(i).Cells.Length - 1) do

    begin

      Memo1.Lines.Add(ovTable.Rows.Item(i).Cells.Item(j).InnerText;
    end
;
  end
;
end
;

Другое по теме:

• Очистка кэша в IE
• WEB страничка внутри Delphi приложения
• Автоматическое заполнение HTML-форм в браузере