Hallo,
Du hast am Ende einen Fehler in der Repeatschleife, du suchst da zweimal die nächste Übereinstimmung.
Delphi-Quellcode:
such:=re.Exec(page.Text);
if such then
repeat
idx:=LastPos('/',re.match[1]);
if idx > 0 then filename:=copy(re.Match[1],idx+1,40)
else filename:=re.match[1];
LiBoPicsFoundInPages.Items[i]:=filename;
// such:=re.ExecNext <-- der ist zuviel!!!
until not re.ExecNext;
eigentlich sollte
Delphi-Quellcode:
if re.Exec(page.Text) then
repeat
idx:=LastPos('/',re.match[1]);
if idx > 0 then filename:=copy(re.Match[1],idx+1,40)
else filename:=re.match[1];
LiBoPicsFoundInPages.Items[i]:=filename;
until not re.ExecNext;
reichen.