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