基本问题。 在Button1Click中我创建了一个interfaced对象。创建后的引用计数为0。 我将对象作为参数传递。引用计数增加,在函数结束时减少,当它为0时,它被破坏。我错过了什么吗?当我首先创建对象时,我认为引用计数应为1? lListFilter没有持有对象的引用?
type
IPersistentListFilter = Interface(IInterface)
['{57cdcf89-60ee-4b3c-99fd-177b4b98d7e5}']
procedure IncludeObject;
end;
procedure FillList(AFilter : IPersistentListFilter);
type
TPersistentListFilter = class(TInterfacedObject, IPersistentListFilter)
procedure IncludeObject;
constructor Create;
destructor Destroy; override;
end;
implementation
procedure FillList(AFilter: IPersistentListFilter);
begin
AFilter.IncludeObject;
end;
constructor TPersistentListFilter.Create;
begin
inherited;
end;
destructor TPersistentListFilter.Destroy;
begin
inherited;
end;
procedure TPersistentListFilter.IncludeObject;
begin
// do nothing
end;
procedure TForm8.Button1Click(Sender: TObject);
var
lListFilter: TPersistentListFilter;
begin
lListFilter := TPersistentListFilter.Create;
// ref count is 0
FillList(lListFilter);
// lListFilter has been destroyed
FillList(lListFilter); // --> error
end;
答案 0 :(得分:2)
在 auto val = f();
T& x = get<0>(val);
T2 const y = get<1>(val);
T3 const& z = get<2>(val);
中,Button1Click
被声明为lListFilter
的实例,而不是TPersistentListFilter
。因此,创建IPersistentListFilter
时不会发生引用计数。
lListFilter
需要声明为lListFilter
:
IPersistentListFilter