Delphi 字符串删除字符间空格的代码

在Delphi中，删除字符串中的空格可以通过多种方法实现。以下是一些常用的方法：

使用Trim函数去除两端空格

Trim函数可以去除字符串两端的空格，但不会影响字符串中间的空格。以下是使用Trim函数的示例代码：

var
  s: string;
begin
  s := ' hello world ';
  s := Trim(s);
  // 输出：'hello world'
end;

3

使用StringReplace函数去除中间空格

如果要去除字符串中间的空格，可以使用StringReplace函数将空格替换为空字符串。以下是示例代码：

var
  s: string;
begin
  s := 'hello world';
  s := StringReplace(s, ' ', '', [rfReplaceAll]);
  // 输出：'helloworld'
end;

3

使用Pos函数和字符串操作去除特定位置的空格

如果要去除字符串中间的特定空格，可以使用Pos函数找到空格的位置，然后通过字符串操作去除。以下是示例代码：

var
  i, j: Integer;
  s: string;
begin
  i := Pos(' ', s);
  j := Length(s);
  if i > 0 then
    s := Copy(s, 1, i - 1) + Copy(s, i + 1, j);
  // 这里s中的第i个位置的空格被去除了
end;

8

去除字符串中的所有空格

如果要去除字符串中的所有空格，可以结合使用Trim和StringReplace函数。以下是示例代码：

var
  str: string;
begin
  str := ' hello world ';
  str := Trim(str);
  str := StringReplace(str, ' ', '', [rfReplaceAll]);
  // 输出：'helloworld'
end;

6

去除字符串中的回车、空格和Tab键

如果要去除字符串中的回车、空格和Tab键，可以使用StringReplace函数多次替换。以下是示例代码：

var
  myStr: string;
begin
  myStr := StringReplace(myStr, Chr(13) + Chr(10), '', [rfReplaceAll]); // 删除回车
  myStr := StringReplace(myStr, ' ', '', [rfReplaceAll]); // 删除空格
  myStr := StringReplace(myStr, Chr(9), '', [rfReplaceAll]); // 删除Tab
end;

9

以上就是在Delphi中删除字符串中空格的一些常用方法。根据具体需求，可以选择适合的方法来实现。