ShLwApi.StrFormatByteSize 和 Delphi 2010 Unicode

Question

谁能帮我解决这个问题：

{$IFDEF UNICODE}
function FormatStringByteSize( TheSize: Cardinal ): string;
{ Return a cardinal as a string formated similar to the statusbar of Explorer }
var
  Buff: string;
  Count: Integer;
begin
  Count := Length(Buff);
  FillChar(Buff, Count, 0);
  ShLwApi.StrFormatByteSize( TheSize, PWideChar(Buff), Length( Buff ) * SizeOf( WideChar ) );
  Result := Buff;
end;
{$ENDIF}

Answer 1

至少在 Delphi 2009 中（无法在 2010 版中测试，因为我没有它）StrFormatByteSize() 函数是 Ansi 版本 (StrFormatByteSizeA()) 的别名，而不是宽字符版本 (@ 987654324@)，因为它适用于大多数其他 Windows API 函数。因此，您应该直接使用宽字符版本 - 也适用于早期的 Delphi 版本，以便能够处理大于 4 GB 的文件（系统）大小。

不需要中间缓冲区，您可以利用StrFormatByteSizeW() 将指向转换结果的指针作为PWideChar 返回的事实：

{$IFDEF UNICODE}
function FormatStringByteSize(ASize: int64): string;
{ Return a cardinal as a string formatted similar to the status bar of Explorer }
const
  BufLen = 20;
begin
  SetLength(Result, BufLen);
  Result := StrFormatByteSizeW(ASize, PChar(Result), BufLen);
end;
{$ENDIF}

Answer 2

你需要先设置buff的长度。 (长度buff = 0)

然后

1. 将 TheSize 更改为 Int64 - 对于大于 4GB 的大小，您仍然需要这个。
2. 也许改变对 StrFormatByteSizeW 的调用（Delphi“标题”应该在 D2009+ 中完成此操作）
3. 尽管有名称，FillChar 期望大小以字节为单位，而不是字符。不过这不会影响结果。

function FormatStringByteSize( TheSize: int64 ): string;
// Return an Int64 as a string formatted similar to the status bar of Explorer 
var
  Buff: string;
begin
  SetLength(Buff, 20);
  ShLwApi.StrFormatByteSizeW( TheSize, PWideChar(Buff), Length(Buff));
  Result := PChar(Buff);
end;

我目前无法在 D2009/10 中对此进行测试，因为尚未开始向 Unicode 迁移（下一个项目！）它可以在 D2006 中使用 WideString。