string - 如何在 TVarRec 中设置字符串(或 AnsiString)常量？

Question

我想将格式化参数 Args 传递到 Format功能。我找到了一些例子，但我找不到如何在 TVarRec 中分配字符串常量成员。以下代码编译失败，并显示 E2089 Invalid typecast。

procedure TForm1.Button1Click(Sender: TObject);
var Arguments: array of TVarRec;
begin
  SetLength(Arguments, 2);

  Arguments[0].VInteger := 111;
  Arguments[1].VAnsiString :=  PAnsiString('Text'); // I want to set this member

  ShowMessage(Format('Decimal: %d, String: %s', Arguments));
end;

有人可以建议我如何将字符串(或 AnsiString)常量设置为 TVarRec 成员吗？我使用的是 Delphi 2009。

非常感谢

Answer 1

这似乎在 XE 中有效:

var
  Args: array[0..1] of TVarRec;
  S: AnsiString;
  U: UnicodeString;
begin
  S := 'Hello';
  U := 'world';
  Args[0].VType := vtAnsiString;
  Args[0].VAnsiString := Pointer(S);
  Args[1].VType := vtUnicodeString;
  Args[1].VUnicodeString := Pointer(U);

  Writeln(Format('%s, %s!', Args));
end;