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

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

;

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

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com