不適切な出力文字列

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には、aridesizeがPWideCharである必要があります。

結果をDelphi 2009で正しく表示するにはどうすればよいですか？

Answer 1

Charの配列をWideCharの配列に置き換えて、StrFormatByteSizeWを呼び出します。

Answer 2

これは、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;