Dann meldet er mir für diese Zeile
Assert(ListItem<>NIL);
Im Project ist eine
Exception der Klasse EAssertionFailed aufgetreten!
Delphi-Quellcode:
WB_GetHTMLCode(Webbrowser1, Memo1.Lines);
l := TStringList.Create;
r := TRegExpr.Create;
try
r.Expression := '[0-9]{2}:[0-9]{2}:[0-9]{2}';
if r.Exec(Memo1.Lines.Text) then
repeat
ListItem:= ListView1.Items[iRow];
Assert(ListItem<>NIL);
sMatch:= r.Match[0];
ListItem.SubItems.Add(sMatch);
until not r.ExecNext;
finally
r.Free;
l.Free;
end;
Es müssten im Moment 19 Zeilen in die Listview eingetragen werden!