释放变体 VarArray

Question

FUNCTION SystemspartsClT.KeyFound(Key : AluCostDict.SystemspartskeyT) : BOOLEAN;
VAR v :  Variant;
BEGIN
   v      := VarArrayCreate([0,1], VarInteger);
   v[0]   := Key.System;
   v[1]   := Key.PartType;
   Sucess := t.Locate('System;PartType', v, []);
   v      := NULL;
   Result := Sucess;
END;

我正在使用 Delphi for Win32。

这个函数是否会造成内存泄漏？

我应该将变体 v 作为 vararray 释放吗？如何释放？

我应该释放或初始化本地变体 v 吗？

Answer 1

这不是泄漏，但对于相当简单的任务来说，代码太多了。尝试：

FUNCTION SystemspartsClT.KeyFound(
    Key : AluCostDict.SystemspartskeyT) : BOOLEAN;
BEGIN
   Result := t.Locate('System;PartType', 
                 VarArrayOf([Key.System, Key.PartType]), []);
END;

Answer 2

不，不，不。变体和变体数组由编译器管理。它们在创建时被初始化，并在超出范围时被释放。他们可能造成内存泄漏的唯一方法是，如果您将一个对象分配给变体的值，然后忘记释放它。