Pos und Webbrowser

[Asatru]

Code:

......
<tr>
<td class="tdh" colspan="2" align="center">VIP BlueManGroup</td>
</tr>
<tr>
<td class="tdn" colspan="2"><span class="fontsmall2">Registriert am 20.01.2008</span></td>
</tr>
<tr>
<td class="tdn">Postings:</td>
<td class="tdn">870[img]pictures/posts.gif[/img]</td>
</tr>
......

Das obere wäre der Quellcode den ich in meinem ACP zum Beispiel sehe, wenn ich mir den Quellcode anzeigen lasse. Nun möchte ich in mein Programm eben einige Sachen rausholen. Wenn ich normal nur mit reinen Text arbeite gehts ja mit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
source: String;
pos1: Integer;
pos2: Integer;

begin
source := Webbrowser1.OleObject.Document.Body.innerHTML;
pos1 := Pos('Anfangstext', source);
pos1 := pos1 + 11;
pos2 := Pos('Endtext', source);
Caption := Copy(source, pos1, pos2 - pos1);

end;

Nur wenn es um HTML Tags gehts haut nix mehr hin, vorallem weil </td> zuoft gibt. Nächste Überlegung wäre den Quellcode in ein memo zu laden und Line für Line zu durchsuchen und dann alles zu machen.

Nun meine Hauptfrage, gibts eine einfachere Art an diesen Text zu kommen oder bzw. wäre das Ofterwähnte TRegExpr doch besser dafür? Also TRegExpr, oder mit Memo line für line oder gibts noch was einfacheres?


Mit freundlichen Grüßen



Asatru