Herauslösen eines Strings im string

[DayDreamer87]

Bin mir jetzt zwar nicht ganz sicher obs passt, liest sich aber so^^

Ein Bekannter hat mir vor einiger Zeit mal eine kleine Funktion geschrieben, die genau das tut was sie tut.

Delphi-Quellcode:

function getTextBetweenStrings(const source, startStr, endStr: String;
  var offset: integer; includeSubstrings: Boolean = False): String;
var
  startIndex, endIndex: integer;
begin
  startIndex := PosEx(startStr, source, offset);
  offset := startIndex + 1;

  if (startIndex > 0) then
  begin
    startIndex := startIndex + Length(startStr);
    endIndex := PosEx(endStr, source, startIndex) + Length(endStr);

    if not includeSubstrings then
      endIndex := endIndex - Length(endStr)
    else
      startIndex := startIndex - Length(startStr);

    Result := MidStr(source, startIndex, endIndex - startIndex);
  end
  else
    Result := '';
end;

GIbt mir persönlich immer genau das zurück, was ich gerade suche

Grüße

Day