如何在 Delphi 字符串中插入撇号 - Delphi

在 Delphi 中，字符串是一个常用的数据类型。有时候需要在字符串中插入单引号(撇号)来完成一些操作。本文将介绍如何在 Delphi 中插入撇号。

方法一：使用 Chr 函数

在 Delphi 中，Chr 函数可以将 ASCII 码转换为字符。单引号的 ASCII 码是 39，所以可以使用 Chr(39) 来表示单引号。具体实现代码如下：

var
  str: string; // 原始字符串
begin
  str := 'Hello World';
  Insert(Chr(39), str, 6); // 在第6个字符前插入单引号
  ShowMessage(str); // 输出结果为'Hello 'World'
end;

上述代码中，Insert 函数可以在指定位置插入字符串或字符，具体参数说明可查看 Delphi 帮助文档。

方法二：使用双引号括起来

另一种简单的方法是使用双引号将字符串括起来，这样单引号便可以直接插入到字符串中，如下所示：

var
  str: string; // 原始字符串
begin
  str := 'Hello World';
  str := 'I''m a Delphi programmer.'; // 在 I 和 m 之间插入单引号
  ShowMessage(str); // 输出结果为'I'm a Delphi programmer.'
end;

需要注意的是，在 Delphi 中，如果要在字符串中使用双引号，则需要使用两个双引号来表示一个双引号，例如：

var
  str: string; // 原始字符串
begin
  str := 'This is a ""quoted"" string.'; // 在 quoted 前后使用双引号
  ShowMessage(str); // 输出结果为'This is a "quoted" string.'
end;

方法三：使用 Replace 函数

Replace 函数可以将字符串中的指定子串替换为另一个字符串。可以将原始字符串中的单引号替换为两个单引号，然后再插入单引号，具体代码如下：

var
  str: string; // 原始字符串
begin
  str := 'Hello World';
  str := ReplaceStr(str, '''', ''''''); // 将单引号替换为两个单引号
  Insert('''', str, 6); // 在第6个字符前插入单引号
  str := ReplaceStr(str, '''''', ''''); // 将两个单引号替换回单引号
  ShowMessage(str); // 输出结果为'Hello 'World'
end;

上述代码中，ReplaceStr 函数可以替换指定字符串中的指定子串，具体参数说明可查看 Delphi 帮助文档。

通过以上三种方法，我们可以在 Delphi 字符串中插入单引号完成各种操作，希望对您有所帮助！