mehrere HTML Tabellen in Stringgrid einfügen untereinander

[klaus9]

Hallo,

hier wie folgt mein Code

Delphi-Quellcode:

procedure TForm1.Button9Click(Sender: TObject);
var aNode,aNode2 : Olevariant;
   r,c,z,z2 : Integer;


begin

  aNode := WebBrowser1.OleObject.Document.all.tags('table').Item(5);
    r := aNode.all.tags('tr').Length;//Zeilen feststellen
  StringGrid1.RowCount  := r;
 for z := -0  to r-1  do

    begin
    aNode2 := aNode.all.tags('tr').Item(z);
    c := aNode2.all.tags(Edit6.text).Length;
    if c > 0 then
      begin
      if c > StringGrid1.ColCount then
        StringGrid1.ColCount := c;
      for z2 := 0 to c-1 do
         StringGrid1.Cells[z2,z+1] := aNode2.all.tags('th').Item(z2).innerText;
      end;
    c := aNode2.all.tags('td').Length;
    if c > 0 then
      begin
      if c > StringGrid1.ColCount then
        StringGrid1.ColCount := c;
      for z2 := 0 to c-1 do
        StringGrid1.Cells[z2,z] := aNode2.all.tags('td').Item(z2).innerText;
      end;
    end;

end;

Dieser Code parster mit eine Tabelle aus einer Webseite, ich habe mehrere HTML Seiten, mit dieser Tabellenstruktur, die ich untereinander geparst haben möchte ins Stringgrid.
Seite 1 = 1-50, Seite 2 = 51-100, Seite 3 = 101-150 usw., diese will ich gerne hintereinander anklicken, die HTML Seiten und manuell auswählen und an das vorhande Stringgrid ergebnis anhängen. Derzeit würde er mir, mit obigen Code nur immer eine Tabelle rausparsen.

Gruß