Пример показывает как добавить содержимое каждой ячейки в TMemo
OnПример показывает как добавить содержимое каждой ячейки в TMemo: procedure TForm1.Button1Click(Sender: TObject); var i, j: integer; ovTable: OleVariant; begin // Я использовал первую таблицу на странице в качестве примера ovTable := WebBrowser1.OleObject.Document.all.tags(‘TABLE’).item(0); for i := 0 to (ovTable.Rows.Length — 1) do begin…

