Delphi 10 Seattle中StrPCopy()触发AV错误的异常问题求助

咱们来把这个问题的本质拆解开，再说说正确的解决办法：

为什么直接赋值字符串会触发AV？ #

当你写 s := 'original string'; 时，Delphi编译器会把这个字面量字符串放到只读数据段里——这是编译器的优化策略，因为字面量内容固定不变，放到只读区域既省内存又能避免意外修改。

但StrPCopy的第一个参数要求是可写的字符缓冲区，此时PChar(s)返回的指针指向的是只读内存，你试图往只读内存里写入数据，自然就触发了访问违规（Access Violation）。

为什么用Trim包裹后就正常了？ #

Trim('original string') 会返回一个动态分配的新字符串：Trim函数会在堆内存里创建新的字符串实例，把处理后的内容存进去，这块内存是完全可写的。所以此时PChar(s)指向的是堆上的可写区域，StrPCopy写入时就不会有问题。

正确的解决思路（按推荐程度排序） #

1. 直接用字符串赋值（最推荐） #

在Delphi里，字符串本身就是动态管理的，完全没必要用StrPCopy来做这种简单的赋值，直接写更安全高效：

procedure TForm2.butnTestClick(Sender: TObject);
var s : string;
begin
  s := 'original string';
  // 直接替换成目标字符串，一步到位
  s := 'changed';
  Memo1.Lines.Add(s);
end;

2. 若必须用指针操作（仅特殊场景） #

如果你因为某些特殊需求一定要用PChar操作，必须先确保字符串有足够的可写空间，并且手动维护字符串长度（Delphi字符串带长度前缀，直接用PChar修改不会自动更新这个前缀）：

procedure TForm2.butnTestClick(Sender: TObject);
var s : string;
begin
  s := 'original string';
  // 先设置字符串长度为目标内容的长度，确保分配了可写的堆内存
  SetLength(s, Length('changed'));
  // 现在PChar(s)指向可写缓冲区，且容量足够
  StrPCopy(PChar(s), 'changed');
  Memo1.Lines.Add(s);
end;

3. 用Delphi自带字符串函数处理（替换场景） #

如果你的实际需求是替换字符串中的内容，用Delphi内置的字符串操作函数更稳妥，比如StringReplace：

s := StringReplace(s, 'original string', 'changed', [rfReplaceAll]);

内容的提问来源于stack exchange，提问作者Suri M.