使用SetLength()调整引用计数接口的动态数组大小是否会导致内存泄漏?

时间:2018-12-03 01:34:38

标签: pascal freepascal delphi

如果我有以下引用计数接口的类型声明。

type
    ISomeInterface = interface
       ['{xxxx-xxxx-xxx-xxxx-xxx}']
       procedure doThing();
    end;

    TSomeInterfaceImpl = class(TInterfacedObject, ISomeInterface)
    public
       procedure doThing();
    end; 
...
var arrayOfSomeInterface : array of ISomeInterface; 

以下代码会导致内存泄漏吗?

SetLength(arrayOfSomeInterface, 1);
arrayOfSomeInterface[0] := TSomeInterfaceImpl.create();
SetLength(arrayOfSomeInterface, 2);
arrayOfSomeInterface[1] := TSomeInterfaceImpl.create();

据我所知,在动态数组上调用SetLength()时,它将为新的动态数组分配新的内存,然后将旧的数组内容复制到新的数组中。

在旧数组中引用接口计数发生了什么。会适当减少吗?

1 个答案:

答案 0 :(得分:2)

不,没有泄漏。

内存管理器将尝试就地扩展现有内存块。如果可以,则不会影响任何引用。但是,如果不能,它将把阵列复制到一个新的内存块中。生成的接口引用将具有与复制之前相同的引用计数。增加数组的大小不会添加或删除现有数组元素的引用,只会将它们从一个内存位置移动到另一个内存位置。这是绝对安全的。

接口和动态数组都是托管类型,编译器和RTL会正确管理它们。