XE7中的Str生成奇怪的警告

Question

为什么会有这段代码：

  w: word;
  s: String;
begin
  str(w, s);

在 XE7 中生成此警告：

[dcc32 Warning] Unit1.pas(76): W1057 Implicit string cast from 'ShortString' to 'string'

汤姆

Answer 1

System.Str 是一个可以追溯到过去时代的内在函数。 documentation 是这样说的：

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

....

注意：但是，在使用此过程时，编译器可能会发出警告：W1057 Implicit string cast from '%s' to '%s' (Delphi)。

如果不需要具有预定义最小长度的字符串，请尝试使用 IntToStr 函数。

由于这是内在的，因此可能会发生一些额外的事情。在幕后，内部函数是通过调用产生ShortString 的RTL 支持函数来实现的。编译器魔术然后将其转换为string。并警告您隐式转换。编译器魔法变换

Str(w, s);

进入

s := _Str0Long(w);

_Str0Long 在哪里：

function _Str0Long(val: Longint): _ShortStr;
begin
  Result := _StrLong(val, 0);
end;

由于_Str0Long 返回ShortString，因此编译器必须生成代码以在分配给变量s 时执行从ShortString 到string 的隐式转换。当然，您会自然而然地看到 W1057。

底线是 Str 的存在只是为了保持与旧版 Pascal ShortString 代码的兼容性。新代码不应调用Str。你应该按照文档说的做，然后打电话给IntToStr：

s := IntToStr(w);

或许：

s := w.ToString;