Delphi 6
Ich habe eine Tabelle im Webbrowser, sagen wir mal 10 Zeilen, 10 Spalten.
Nun will ich in jeder Zeile eine Zusätzliche Zeile von 3 Spaltenbreiten einfügen.
Delphi-Quellcode:
____ ____ ____ ____ ____ ____ ____
|____|____|____| | | | | // als Delphi-Code hier dargestellt, weil
|____|____|____|____|____|____|____| // sonst die Leerzeichen gekürzt werden
Mein
HTML Editor hängt dann einfach hinter die Ganze Reihe eine neue Reihe mit einer Zelle colspan=3 hintendran.
<tr> ganze Zeile</tr>
<tr bgcolor="#FFFFFF">
<td valign=middle colspan="3">kurze Spalte
</tr>
Will ich das mit Delphi einfügen, knallts!
Fehler:"Das Zielelement dieser Operation ist nicht gültig"
Wo ist der Fehler?
Die variablen Table, Row, r sind richtig definiert, hab den schon funktionierenden Code rausgekürzt.
Delphi-Quellcode:
Table := WebBrowser1.OleObject.Document.all.tags('table').Item(1);
r := Table.all.tags('tr').Length;//Zeilen feststellen
for i:=1 to r-1 do //Zeilen durchlaufen
begin
row:=Table.all.tags('tr').item(i);
row.InsertAdjacentHTML('Afterend','<tr bgcolor="#FFFFFF"><td valign=middle colspan="3">kurze Zeile </tr>');
end;
Das sich die Zählschleife verzählt, ist mir klar, weil ja Reien eingefügt werden. Das lös ich dann später. Aber es knallt gleich beim ersten mal!