如何消除ShortString转string的显式强制转换编译警告？

方法一：利用隐式转换或专用转换函数 #

保持原有string[N]的ShortString声明不变，替换显式强制转换的方式：

• 直接拼接时无需显式转换，Delphi会自动处理ShortString到string的兼容转换，避免警告：

  var
    var1: string[10];
    var2: string[5];
    resultStr: string;
  begin
    var1 := 'Hello';
    var2 := 'World';
    resultStr := var1 + var2; // 无显式cast，自动转换
  end;
  

• 单独转换ShortString时，使用ToString方法（Delphi XE及以上版本支持）：

  resultStr := var1.ToString + var2.ToString;
  

方法二：替换为标准string并手动限制长度 #

如果代码没有依赖ShortString的固定内存结构（比如直接操作长度字节），可以把原有固定长度变量替换为默认的string类型，赋值时通过Copy函数截断长度，既消除转换警告，又适配现代字符串类型：

var
  var1: string;
  var2: string;
  resultStr: string;
begin
  // 赋值时截断到原有的10位长度
  var1 := Copy('HelloWorld123', 1, 10);
  // 赋值时截断到原有的5位长度
  var2 := Copy('HiThere', 1, 5);
  resultStr := var1 + var2; // 无转换警告
end;

方法三：关闭特定编译警告 #

若不想修改代码逻辑，可通过编译指令关闭该警告：

• 局部关闭：在目标单元开头添加指令：

  {$WARN EXPLICIT_STRING_CAST OFF}
  

• 全局关闭：在Delphi项目选项的Compiler > Warnings中，找到Explicit string cast from 'ShortString' to 'string'选项并取消勾选。

内容的提问来源于stack exchange，提问作者Robe79