Link aus memo rauskopieren

[mkinzler]

Findet alle URLs in einem Memo:

Delphi-Quellcode:

Uses ... RegularExpressions ...
const
  pattern = '(http|ftp|https):\/\/[\w\-_]+(\.[\w\-_]+)+([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?';
var
  matches: TMatchCollection;
  match: TMatch;
begin
  matches := TRegEx.Matches( Memo.Text, pattern);
  Caption := IntToStr( matches.Count);
  for match in  matches do
  begin
    //Url in match.Value
    ...
  end;