POS findet was das ich nicht verstehe... ?

[Perlsau]

Weshalb so umständlich?

Delphi-Quellcode:

function GetValue(Suche : String) : String;
Var
  p : Integer;
  S : String;

begin
  Result := '';
  S := Nachrichtentext;

  p := Pos(Suche, S); // nach dem Suchstring suchen
  if p = 0 then exit; // wenn nichts gefunden, dann raus

  // wenn gefunden, dann ...
  Delete(S, 1 ,p + Length(S)-1); // ab gefundener Position die Länge des Suchstrings löschen

  p := Pos(';', S); // nach Delimiter suchen
  if p = 0 then exit; // wenn nichts gefunden, dann raus

  // wenn gefunden, dann Result zuweisen
  Result := Copy(S, 1, p-1);
end;