I need to Unittest a COM method therefor i need to create a two dimensional Safearray of type string.
How to do that?
Create a two dimensional array like this:
var
arr: Variant;
....
arr := VarArrayCreate([1, 10, 1, 5], varInteger);
This creates an array whose primary dimension has bounds 1..10 and whose secondary dimension has bounds 1..5:
1 2 3 4 5
┌──────┬──────┬──────┬──────┬──────┐
1│ [1,1]│ [1,2]│ [1,3]| [1,4]| [1,5]│
├──────┼──────┼──────┼──────┼──────┤
2│ [2,1]│ [2,2]│ [2,3]| [2,4]| [2,5]│
├──────┼──────┼──────┼──────┼──────┤
3│ [3,1]│ [3,2]│ [3,3]| [3,4]| [3,5]│
├──────┼──────┼──────┼──────┼──────┤
4│ [4,1]│ [4,2]│ [4,3]| [4,4]| [4,5]│
├──────┼──────┼──────┼──────┼──────┤
5│ [5,1]│ [5,2]│ [5,3]| [5,4]| [5,5]│
├──────┼──────┼──────┼──────┼──────┤
6│ [6,1]│ [6,2]│ [6,3]| [6,4]| [6,5]│
├──────┼──────┼──────┼──────┼──────┤
7│ [7,1]│ [7,2]│ [7,3]| [7,4]| [7,5]│
├──────┼──────┼──────┼──────┼──────┤
8│ [8,1]│ [8,2]│ [8,3]| [8,4]| [8,5]│
├──────┼──────┼──────┼──────┼──────┤
9│ [9,1]│ [9,2]│ [9,3]| [9,4]| [9,5]│
├──────┼──────┼──────┼──────┼──────┤
10│[10,1]│[10,2]│[10,3]|[10,4]|[10,5]│
└──────┴──────┴──────┴──────┴──────┘
When you say that you want to create an array that contains strings, I presume you are referring to the COM BSTR. In which case pass varOleStr
as the var type parameter when you call VarArrayCreate
.