德尔福的二维Safearray？

Question

我需要单元测试一个COM方法，我需要创建一个类型为字符串的二维Safearray。

怎么做？

Answer 1

创建一个二维数组，如下所示：

var
  arr: Variant;
....
arr := VarArrayCreate([1, 10, 1, 5], varInteger);

这将创建一个数组，其主要维度的边界为1..10，其次要维度的边界为1..5。

当您说要创建包含字符串的数组时，我认为您指的是COM BSTR。在这种情况下，当您调用varOleStr时，将VarArrayCreate作为var type参数传递。