Delphi 获取字符串关键词之后的所有内容

uses
  System.SysUtils;

function GetContentAfter(const input, target: string): string;
var
  posTarget: Integer;
begin
  posTarget := Pos(target, input);
  if posTarget > 0 then
    Result := Copy(input, posTarget + Length(target), MaxInt)
  else
    Result := ''; // 如果未找到目标子字符串，则返回空字符串
end;

procedure Test;
var
  input, target, resultContent: string;
begin
  // 定义测试字符串和目标子字符串
  input := '这是一个测试字符串 xxxx 之后的内容';
  target := 'xxxx';

  // 获取目标子字符串之后的所有内容
  resultContent := GetContentAfter(input, target);

  // 输出结果
  Writeln('输入字符串: ', input);
  Writeln('目标子字符串: ', target);
  Writeln('目标子字符串之后的内容: ', resultContent);
end;

begin
  Test;
end.