String nach einem Substring herausnehmen

[jaenicke]

So könntest du es z.B. machen:

Delphi-Quellcode:

function FindNextWord(const AText, APrevWord: string): string;
var
  CurPos: PChar;
begin
  CurPos := PChar(Integer(PChar(AText) + Pos(APrevWord + ' ', AText) + Length(APrevWord)));
  SetString(Result, CurPos, Pos(' ', CurPos) - 1);
end;

Und dann eben so aufrufen:FindNextWord('Das ist ein Test!', 'ist')