为什么将“%s”以外的任何内容与 Variant 一起使用时，Format 会崩溃？

Question

我正在使用SysUtils.Format 函数和variant 值，我发现此函数仅在格式字符串为%s 时才有效。我查看了有关 Format 函数的文档，但没有任何关于如何处理变体值的参考。

考虑这个简单的应用程序：

{$APPTYPE CONSOLE}

uses
  Variants,
  SysUtils;

procedure TestFormat;
var
  v : Variant;
begin
  v:=100;
  writeln(Format('The VarType of v is %s',[VarTypeAsText(VarType(v))]));
  writeln(Format('The value of v is %s',[v]));//ok

  v:='100';
  writeln(Format('The VarType of v is %s',[VarTypeAsText(VarType(v))]));
  writeln(Format('The value of v is %s',[v]));//ok

  v:=100;
  writeln(Format('The VarType of v is %s',[VarTypeAsText(VarType(v))]));
  writeln(Format('The value of v is %d',[v]));//raise a EConvertError exception EConvertError: Format '%d' invalid or incompatible with argument
end;


begin
  try
     TestFormat;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  readln;
end.

这是这个功能的一个错误还是一个简单的限制？

我在 Delphi 5、Delphi 2007 和 Delphi XE 中检查了这种行为。

Answer 1

这是功能的限制。对于功能更丰富的Format 版本，请尝试JCL 中的WideFormat 函数。 （我是它的作者。）它支持各种类型的 Variant，Boolean 和 TClass。它还接受 %p 格式的字符指针类型，以及索引参数的 Int64 和 Variant 值。

尽管有扩展，但它在大约一年前从 JCL 发行版中删除，因为它的主要目标是 Delphi 5，它不提供 Format 的原生 WideString 版本，并且 JCL 不再支持 Delphi 5。包含它的最新版本是3140。

Answer 2

这是功能的限制。在 Delphi XE 中，SysUtils 中的相关部分从第 10870 行开始，如下所示：

@CvtVariant:
        CMP     CL,'S'
        JNE     @CvtError

这对任何变体参数都调用。 CL 寄存器具有该特定参数的格式字符串所需的类型，对于不同于“S”的任何内容，都会引发异常。