HTML Tabelle einlesen ?

[marabu]

Hi,

das hast du schon ganz gut gemacht.

Hier noch ein paar Änderungen:

Delphi-Quellcode:

procedure TForm1.EButton4Click(Sender: TObject);
var
  t: IHTMLTable;
  row: IHTMLTableRow;
  doc: IHTMLDocument2;
begin
  doc := CoHTMLDocument.Create as IHTMLDocument2;
  if GetDocument(Edit1.Text, doc) then
  begin
    if GetTable(doc, 0, t) then // first Table
    begin
      row := t.rows.item(0, null) as IHTMLTableRow; // first Row
      if Assigned(row) 
        then GetCells(row, StringGrid1, 0) // StringGrid.Row = 0 
        else ShowMessage('no rows found');
    end else ShowMessage('no tables found')
  end else ShowMessage('GetDocument failed');
end;

Der letzte Parameter von GetCells() gibt die Row im StringGrid an, in der die Zellen einer Tabellenzeile abgelegt werden sollen.

Getippt und nicht getestet.

Gute Nacht