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?
最佳答案
这不是泄漏,但是对于一个相当简单的任务来说,它太多了代码。尝试:
FUNCTION SystemspartsClT.KeyFound(
Key : AluCostDict.SystemspartskeyT) : BOOLEAN;
BEGIN
Result := t.Locate('System;PartType',
VarArrayOf([Key.System, Key.PartType]), []);
END;
关于delphi - 释放变量VarArray,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/1438734/