Как работать со всеми ячейками таблицы в 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;
|
|
|
|
|
багажник для сноуборда на автомобиль . Перевозки из Юго-Восточной Азии: перевозки из китая. Primum Consulting (China Trade. . Недвижимость, офисы, квартиры: курсы продаж. Металлопрокат - наличие, заказ. . Сушильные машины: сушилка для белья. Гладильные доски, сушки для белья. . |
