Главная страницаОбратная связьКарта сайта

Как работать со всеми ячейками таблицы в 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;



Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как работать со всеми ячейками таблицы в WebBrowsere", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info