Delphi ShortInt helper ToString with const

Question

Mam kilka stałych w oddzielnej jednostce, nie mogę zrobić .ToString na tych stałych, jeśli typ jest ShortInt (< 128).

Przykład: Tworzenie jednostki i dodać:

const abc = 127; 

Tworzenie TForm aw FormShow zrobić:

Edit1.Text := abc.tostring; 

Czy wiesz, dlaczego to nie działa? typ rekordu, obiektu lub klasy wymagane ..

To działa, jeśli jest stała w tej samej jednostce ..

Answer 1

mogę odtworzyć ten z następującym minimalnym przykład

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. 

To jest wyraźny błąd kompilatora. Można obejść problem z nieeleganckie typu podpowiedź jak to:

const 
    abc = Shortint(127); 

Sugeruje mi się, że gdy nie ma wpisać wskazówkę, kompilator widzi 127 jako coś innego niż Shortint. Nie jestem do końca pewien co, ponieważ nie widzę wewnątrz kompilatora.

Proszę przesłać raport o błędzie do Embarcadero.