Aus einem Text nur vordefinierten Bereich kopieren

[himitsu]

Delphi-Quellcode:

a := Pos('-', Text);
e := Pos('-', Text, e + 1);  // Pos mit 3 Parametern, bzw. früher PosEx
Result := Copy(Text, a, e - a + 1);

Delphi-Quellcode:

uses System.RegularExpressions;

var S := 'Grundschule m. Erweiterung 2017 - 0712 -';
ShowMessage(
    '"' + TRegEx.Match(S, '-[^-]*-').Value + '"'
  + sLineBreak
  + '"' + TRegEx.Match(S, '-([^-]*)-').Groups[1].Value.Trim + '"'
);

// Prüfungen auf .Success und .Groups.Count hab ich hier natürlich vergessen