VarArrayAsPSafeArray在Delphi 5.0中不可用

Question

Delphi 5.0中没有VarArrayAsPSafeArray 与Delphi 5.0相同的是什么？我想要完成这里讨论的任务。 How to convert Array of bytes to Variant 有一个巨大的字节数组，并希望转换为变体。只需要4秒钟的分配！

Answer 1

VarArrayAsPSafeArray()只是从PSafeArray内部提取Variant指针。你可以直接这样做：

V := VarArrayCreate([0, High(a)], varByte);
SafeArray := PSafeArray(TVarData(V).VArray);