Delphi ShortInt 帮助器 ToString 与 const

Question

我在单独的单元中有一些常量，如果类型为 ShortInt (< 128)，则无法对这些常量执行 .ToString。

示例:创建单元并添加:

const abc = 127;

创建一个 TForm 并在 FormShow 中执行以下操作:

Edit1.Text := abc.tostring;

你知道为什么它不起作用吗？键入所需的记录、对象或类 ..

如果常数具有相同的单位，则有效。

Answer 1

我可以用下面的最小示例重现这一点

Program1.dpr

program Project1;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  Unit1 in 'Unit1.pas';

begin
  Writeln(abc.ToString);
end.

Unit1.pas

unit Unit1;

interface

const
  abc = 127;

implementation

end.

这是一个明显的编译器错误。您可以使用不优雅的类型提示来解决该问题，如下所示:

const
  abc = Shortint(127);

这表明，当没有类型提示时，编译器会将 127 视为 Shortint 以外的内容。但我不太确定是什么，因为我看不到编译器的内部。

请向 Embarcadero 提交错误报告。