Delphi、olevariants 和字符串数组

Question

我有一个用（简单版本）创建的 ole 对象，

obj := CreateOleObject('foo.bar');
obj.OnResult := DoOnResult;

procedure TMyDM.DoOnResult(Res: olevariant);

它可以正常工作， res 变量有一个函数 String[] GetAns() 我像这样调用

var
 ans: array of string;
begin
 ans := Res.GetAns;
end;

它再次起作用..除了有时没有返回数组，然后抛出异常。

作为临时解决方案，我将其包装在一个空的 try except 块中，我知道这是坏。我已经尝试过 VarIsArray(Res.GetAns) 但如果结果为 null，它仍然不起作用

检查正确结果的正确方法是什么？

ps 我无法控制 ole 对象

Answer 1

Christopher 尝试使用 VarIsNull 函数

procedure TMyDM.DoOnResult(Res: olevariant);
var
 ans: array of string;
begin
 if not VarIsNull(Res) then 
 if not VarIsNull(Res.GetAns) then
 begin
  ans := Res.GetAns;
  //do your stuff

 end;

end;