String aus einem Wort zwischen 2 Wörtern auslesen

[Matze]

Ich bin öfters mal auf das Problem gestoßen, dass man einen String zwischen 2 Strings auslesen muss.

Diese function macht's möglich.

Delphi-Quellcode:

function GetString(Wort, WortVor, WortNach: string): string;
var 
  IndexVor, IndexNach: integer;
  i: integer;
  Ergebnis: string;
begin
  IndexVor := pos(WortVor, Wort);
  IndexNach := pos(WortNach, Wort);

  if (IndexVor <> 0) and (IndexNach <> 0) then
  for i := IndexVor+Length(WortVor) to IndexNach-1 do
  begin
    Ergebnis := Ergebnis+Wort[i];
  end;

  Result := Ergebnis;
end;