oleVariant类型变量和array of integer 之间如何转换(100)

从一个函数中返回oleVariant类型的变量，该oleVariant实际为 array of integer,我如何使用该oleVariant类型变量，其和 array of integer之间如何转换；我如何将该oleVariant变量写入数据库中，然后再从数据库中获得类型为oleVariant的变量

给你作为参考Type MyIntArray=Array of Integer;{整形数组转变体}Procedure IntArrayToVariant(IntArray:MyIntArray;Var Variant:OleVariant);var I:Integer;begin Variant := VarArrayCreate ([0, Length(IntArray) - 1], varByte); //建立Ole数组 For I:=0 To Length(IntArray) - 1 do Variant:=IntArray;end;{变休转整形}Procedure VariantToIntArray(Variant:OleVariant;Var IntArray:MyIntArray);Var I:Integer;begin SetLength(IntArray,VarArrayHighBound (Variant,1)+1); For I:=0 To VarArrayHighBound (Variant,1) do IntArray:=Variant;end;