Speziellen Substring aus String kopieren

[Popov]

Ist ungeprüft, sollte aber funktionieren:

Delphi-Quellcode:

var
  p: Integer;
  SubStr, Str, SubStr2: String;
begin
  p := Pos(SubStr, Str);
  Delete(Str, 1, p + Length(SubStr) + 1);
  SubStr2 := Copy (Str, 1, Pos(' ', Str));
  ShowMessage(SubStr2)

Versuch das.