Wort nach einem Wort

[omata]

Delphi-Quellcode:

function GetWordTwo(text:string):string;
var RegExpr:TRegExpr;
begin
  RegExpr:=TRegExpr.Create;
  try
    RegExpr.ModifierG:=true;
    RegExpr.Expression:='^([^ ]*) *([^ ]*)';
    if RegExpr.Exec(text) then
      Result:=RegExpr.Match[2]
    else
      Result:='';
  finally
    RegExpr.free;
  end;
end;

RegExpr