Str in XE7 erzeugt seltsame Warnung

Question

Warum dieser Code:

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

diese Warnung in XE7 erzeugen:

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

Tom

Answer 1

System.Str ist eine intrinsische Funktion, die von einer byegone Zeit stammt . Die documentation sagt dies:

Prozedur Str (const X [: Breite [: Dezimalzahlen]]; var S: String);

....

Hinweise: W1057 Implizite String-Umwandlung von '% s' zu '% s' (Delphi): Um jedoch dieses Verfahren auf der Verwendung der Compiler eine Warnung ausgeben kann.

Wenn keine Zeichenfolge mit einer vordefinierten Mindestlänge benötigt wird, verwenden Sie stattdessen die IntToStr-Funktion.

Da dies ein intrinsischer ist, gibt es wahrscheinlich etwas Besonderes. Hinter den Kulissen wird die intrinsische Funktion durch einen Aufruf einer RTL-Unterstützungsfunktion implementiert, die eine ShortString ergibt. Compiler Magie macht dann das zu einem string. Und warnt dich vor der impliziten Konvertierung. Der Compiler Magie verwandelt

Str(w, s); 

in

s := _Str0Long(w); 

Wo _Str0Long ist:

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

Seit _Str0Long kehrt ein ShortString dann der Compiler Code zu generieren, hat die implizite converstion von ShortString bis zur Durchführung string wenn es Ihrer Variablen s zuweist. Und natürlich ist es natürlich, dass Sie W1057 sehen.

Die Quintessenz ist, dass Str nur existiert, um die Kompatibilität mit Pascal ShortString Legacy-Code zu erhalten. Neuer Code sollte nicht Str aufrufen. Sie sollten tun, was die Dokumentation sagt und rufen IntToStr:

s := IntToStr(w); 

Oder vielleicht:

s := w.ToString;