delphi - 为什么 Str() 将 "W1057 Implicit string cast from ' ShortString' 给 'string' "？

Question

考虑:

function x_StrZero(N: Double; W: Integer; D: Integer = 0): String;
var S : String;
begin
  Str(N:W:D,S);   
  S := Trim(S);

这给出了 W1057 隐式字符串从 'ShortString' 到 'string' 的转换

online doc说:

procedure Str(const X [: Width [:Decimals]]; var S: String);

还有

Notes: However, on using this procedure, the compiler may issue a warning: W1057 Implicit string cast from '%s' to '%s' (Delphi).

为什么会这样？

我想阻止这种丑陋的解决方法:

function x_StrZero(N: Double; W: Integer; D: Integer = 0): String;
var
  S : String;
  SS : ShortString;
begin
  Str(N:W:D,SS);
  S := Trim(String(SS));

我已阅读 Why does Delphi warn when assigning ShortString to string?但这并不能回答这个问题。

Answer 1

Str(N:W:D,S);   

编译为

S := System._Str2Ext(N, W, D);

其中 System._Str2Ext 是一个返回类型为 ShortString 的函数。它在分配给 S 时被转换为 string。该警告虽然不容易阅读，但却是正确的，此时存在隐式转换。因此，要么通过避免 Str 来重写代码，使那里没有隐式转换，要么关闭警告，要么忽略警告。