Hm, den hatte ich auch schonmal, allerdings wird leider nichts ausgegeben.
Delphi-Quellcode:
for j := 0
to Pred(sl.Count)
do
begin
RegExpr.Expression := '
#[url="(.*?)"](.*?)[/url]#';
if RegExpr.Exec(sl[j])
then
begin
repeat
Result.Append(RegExpr.Match[1]);
until
not RegExpr.ExecNext;
end;
end;