meine version hab ich ja schon geschrieben, aber hier mal ein teil meines quellcodes
Code:
//routine zum suchen der
Url in den htmls
page:=TStringList.Create;
re:=TRegExpr.Create;
try
page.LoadFromFile(LiBoSit.Items[0]);
re.Expression:='(.+).(jpg|png|pdf|bmp|gif)';
if re.Exec(page.Text) then
begin
LbTest.Caption:=re.Match[0]
end;
finally
page.Free;
re.Free;
end;