DELPHI去除字符串两边的空格

在 DELPHI 中，可以使用 Trim 函数来去除字符串两边的空格。

例如：

var
  s: string;
begin
  s := '  Hello World!  ';
  s := Trim(s);
  ShowMessage(s);  // 输出 "Hello World!"
end;

Trim 函数会返回一个新的字符串，去除了字符串两边的空格。如果你希望原地修改字符串，可以使用下面的代码：

var
  s: string;
begin
  s := '  Hello World!  ';
  s := Trim(s);
  s := TrimLeft(s);  // 去除左边的空格
  s := TrimRight(s);  // 去除右边的空格
  ShowMessage(s);  // 输出 "Hello World!"
end;

注意，TrimLeft 函数和 TrimRight 函数只会去除字符串的一侧的空格。

相关问题

delphi 删除字符串空格

在 Delphi 中，你可以使用 Trim 函数来删除字符串的前导和尾随空格。如果你还想删除字符串中间的空格，可以使用 StringReplace 函数将空格替换为空字符串。以下是示例代码：

var
  str: string;
begin
  str := '  This is a string with spaces.  ';
  str := Trim(str); // 删除前导和尾随空格
  str := StringReplace(str, ' ', '', [rfReplaceAll]); // 删除字符串中间的空格
end;

在上面的代码中，我们首先使用 `Trim` 函数删除了字符串 `str` 的前导和尾随空格，然后使用 `StringReplace` 函数将字符串中所有空格替换为空字符串。请注意，我们在 `StringReplace` 函数中使用了 `rfReplaceAll` 标志，这将替换字符串中所有的匹配项，而不仅仅是第一个匹配项。

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` 函数将字符串前缀去掉。循环直到字符串前缀不再匹配为止。