Delphi 字符串去掉前面指定的字符串

你可以通过循环调用 `Pos` 函数以及 `Copy` 函数来实现去掉字符串前面指定的字符串。具体操作如下：

var
  str: string;
  prefix: string;
begin
  str := 'Delphi is a great programming language!';
  prefix := 'Delphi is ';
  while StartsText(prefix, str) do // 判断字符串前缀是否匹配
    str := Copy(str, Length(prefix) + 1, Length(str) - Length(prefix)); // 去掉匹配的前缀
  ShowMessage(str); // 显示结果为 "a great programming language!"
end;

其中，`StartsText(prefix, str)` 用于判断字符串 `str` 是否以字符串 `prefix` 开头。如果是，就使用 `Copy` 函数将字符串前缀去掉。循环直到字符串前缀不再匹配为止。