Question

我一直认为OleVariant变量的初始值总是等于Unassigned（类型VT_EMPTY）。但是下面用XE3编译的简单代码告诉我这不是真的。

{$APPTYPE CONSOLE}

uses
  ActiveX;

function GetValue: OleVariant;
begin
  Result := TVariantArg(Result).vt;
end;

function GetValue2: OleVariant;
begin
  Result := 10;
  Result := GetValue;
end;

var
  Msg: string;
begin
  Msg := GetValue2;
  Writeln(Msg);
end.

App写“3”。这是正常的吗？

Answer 1

对于不适合寄存器的类型，Delphi函数的返回值作为var参数传递。所以编译器将代码转换成如下：

procedure GetValue(var Result: OleVariant);

因此，Result在函数入口时的值是您为其指定返回值的变量的值。

所以你的调用代码转换为

function GetValue2: OleVariant;
begin
  Result := 10;
  GetValue(Result);
end;

所以整个程序就变成了

{$APPTYPE CONSOLE}

uses
  ActiveX;

procedure GetValue(var Result: OleVariant);
begin
  Result := TVariantArg(Result).vt;
end;

procedure GetValue2(var Result: OleVariant);
begin
  Result := 10;
  GetValue(Result);
end;

var
  tmp: OleVariant;
  Msg: string;
begin
  GetValue2(tmp);
  Msg := tmp;
  Writeln(Msg);
end.

其中解释了VT_I4的输出。

当然，这完全是实施细节的结果。您应该始终初始化函数返回值。

OleVariant变量的初始值

1 个答案: