delphi - 使用 CreateOleObject 后释放 OleVariant

Question

这是一个简单的代码:

procedure Test;
var
  V: OleVariant;
begin
  V := CreateOleObject('ADOX.Catalog');
  try
    // do something with V...
  finally
    V := Unassigned; // do we need this?
  end;
end;

我们是否需要在最后使用V := Unassigned代码，或者当V存在于Test的范围内时，它是空闲的> 程序？在 VB 中，将变量设置为 Nothing。我们需要在这里做同样的事情吗？即:

function VarNothing: IDispatch;
// emulate VB function SET VarX = Nothing
var
  Retvar: IDispatch;
begin
  Retvar := nil;
  Result := Retvar;
end;

// do something with V and finally:
V := VarNothing;

Answer 1

OleVariant 超出范围时会自动释放接口(interface)。如果您需要更快地发布，您可以为 OleVariant 分配一个新值。