TPerlRegEx einbinden?

[Klaus01]

Hallo,

diesen Codeschnipsel habe ich hier gefunden.
Vielleicht hilft er Dir ja weiter.

Delphi-Quellcode:

function MatchExpression(subj, expr: string; max: boolean = False): string;
begin
  with TPerlRegEx.Create(nil) do
    begin
      RegEx := expr;
      Subject := subj;

      if Match then
        begin
          if max then
            repeat
              result := SubExpressions[SubExpressionCount]
            until not MatchAgain
          else
            result := SubExpressions[1];
        end;
    end;
end;

Grüße
Klaus