String nach einem Substring herausnehmen

[jaenicke]

Kann man alles machen:

Delphi-Quellcode:

function FindNextWord(const AText, APrevWord: string): string;
var
  CurPos: PChar;
  TempPos: Integer;
begin
  Result := '';
  TempPos := Pos(APrevWord + ' ', AText);
  if TempPos = 0 then
    Exit;
  CurPos := PChar(Integer(PChar(AText) + TempPos + Length(APrevWord)));
    // Beim Zeichen hinter dem gesuchten Wort weitermachen
  TempPos := Pos(' ', CurPos);
  if TempPos = 0 then
    Exit;
  SetString(Result, CurPos, TempPos - 1);
    // Als Ergebnis den Text von der ersten Position bis zum Zeichen vor
    // dem Leerzeichen zurückgeben
end;