Chaîne de sortie incorrecte

Question

procedure TForm1.Button1Click(Sender: TObject); 
var 
    arrSize: array[ 0..255 ] of Char; 
begin 
    {same formating like in statusbar of Explorer} 
    StrFormatByteSize(70846, arrSize, Length(arrSize) * Sizeof(arrSize)); 
    Label1.Caption := 'Result: ' + arrSize; 
end; 

StrFormatByteSize requiert que arrsize soit un PWideChar.

Comment afficher le résultat correctement dans Delphi 2009?

Answer 1

Remplacez le tableau de Char par le tableau de WideChar, appelez StrFormatByteSizeW.

Answer 2

Cela fonctionne bien en Delphi 2009:

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Buff: UnicodeString; 
    TheSize: Int64; 
begin 
    SetLength(Buff, 255);; 
    TheSize := 1024768; 
    StrFormatByteSizeW(TheSize, PWideChar(Buff), Length(Buff)); 
    Label1.Caption := Buff; 
end;