Incorrect output string

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 requires arrsize to be a PWideChar.

How do I get the result to display correctly in Delphi 2009?

Answer 1

Replace array of Char with array of WideChar, call StrFormatByteSizeW.

Answer 2

This works fine in 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;