Delphi OleVariant 内存储器泄露

Delphi OleVariant 内存泄露

V := '123456';

?

V := Unassigned;

或

VarClear(V);

?

都无法完全释放内存（这里的内存指的是 V := '123456'; 这行代码造成的类型转换后存储'123456'的内存空间）。

?

TClientDataSet.SetData(const Value: OleVariant);

?

使用的是 oleaut32.dll 中的 ClearSavedPacket 函数和 SafeArrayCopy 函数来设置或清除 TDataPacket = PSafeArray;