Reguläre Ausdrücke: erstes und letztes Vorkommen finden

[asdfg]

Mit dieser Funktion kann man reguläre Ausdrücke auch in Delphi verwenden, allerdings wird TRegExpr (http://regexpstudio.com/) benötigt. Man kann auch den letzten "Ausdruck" auslesen.

Delphi-Quellcode:

function MatchExpression(Str, Expr : String; max : boolean = False) : String;
var
  i : Integer;
begin
  with TRegExpr.Create do
    try
      ModifierG := False;
      Expression := Expr;
      if Exec(Str) then
        if(max) then
        begin
          repeat
            if(Match[i] <> '') then
              result := Match[i];
            i := i + 1;
          until not ExecNext;
        end
        else
          Result := Match[1];
    finally
      Free;
   end;
end;

Aufrufbeispiele:

Delphi-Quellcode:

Label1.Caption := MatchExpression(Memo1.Text,'[HTML](.*)[/HTML]', true);

=> letzes Vorkommen Label1 zuweisen.

Delphi-Quellcode:

Label1.Caption := MatchExpression(Memo1.Text,'[HTML](.*)[/HTML]');

=> ersten Vorkommen Label1 zuweisen.

[edit=Chakotay1308]Beitrag überarbeitet. Mfg, Chakotay1308[/edit]