Str in XE7 genera strano avvertimento

Question

Perché questo codice:

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

generare questo avviso in XE7:

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

Tom

Answer 1

System.Str è una funzione intrinseca che risale a un'epoca byegone . Il documentation dice questo:

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

....

Note: Tuttavia, sull'utilizzo di questa procedura, il compilatore può emettere un avvertimento: W1057 fusione stringa implicita dal '% s' a '% s' (Delphi).

Se non è necessaria una stringa con una lunghezza minima predefinita, provare invece a utilizzare la funzione IntToStr.

Dato che questo è intrinseco, è probabile che si stia verificando qualcosa in più. Dietro le quinte, la funzione intrinseca è implementata da una chiamata a una funzione di supporto RTL che produce uno ShortString. La magia del compilatore lo trasforma in un string. E ti avverte della conversione implicita. La magia compilatore trasforma

Str(w, s); 

in

s := _Str0Long(w); 

Dove _Str0Long è:

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

Dal _Str0Long restituisce un ShortString poi il compilatore deve generare il codice per eseguire la converstion implicita da ShortString a string quando assegna alla variabile s. E naturalmente è naturale che tu veda W1057.

La riga di fondo è che Str esiste solo per mantenere la compatibilità con il codice precedente Pascal ShortString. Il nuovo codice non dovrebbe chiamare Str. Si dovrebbe fare quello che dice la documentazione e chiamare IntToStr:

s := IntToStr(w); 

O forse:

s := w.ToString;