Tham chiếu giao diện không sử dụng không bị phá hủy

Question

tôi đã gặp lỗi khác trong ứng dụng do sử dụng bất cẩn giao diện Delphi. Khi tôi truyền một giao diện đến một thủ tục bỏ qua đối số đó, cá thể đó sẽ không bao giờ được giải phóng. Xem ví dụ đơn giản sau:

ITest = interface 
    procedure Test; 
end; 

Tester = class(TInterfacedObject, ITest) 
public 
    procedure Test; 
end; 

Base = class 
public 
    procedure UseTestOrNot(test : ITest); virtual; abstract; 
end; 

A = class(Base) 
public 
    procedure UseTestOrNot(test : ITest); override; 
end; 

B = class(Base) 
public 
    procedure UseTestOrNot(test : ITest); override; 
end; 

{ A } 

procedure A.UseTestOrNot(test: ITest); 
begin 
    test.Test(); 
end; 

{ B } 

procedure B.UseTestOrNot(test: ITest); 
begin 
    WriteLn('No test here'); 
end; 

// -------- Test --------------------------------------- 
var 
    list : TObjectList<Base>; 
    x : Base; 
    t : ITest; 
begin 
    ReportMemoryLeaksOnShutdown := true; 

    list := TObjectList<Base>.Create; 
    list.Add(A.Create); 
    list.Add(B.Create); 

    // 1 x Tester leak for each B in list: 
    for x in list do 
     x.UseTestOrNot(Tester.Create); 

    // this is ok 
    for x in list do 
    begin 
     t := Tester.Create; 
     x.UseTestOrNot(t); 
    end; 

    list.Free; 
end. 

Bạn có thể giải thích điều gì xảy ra với bộ đếm tham chiếu không? Bạn có thể đưa ra bất kỳ hướng dẫn/hướng dẫn nào tốt nhất (như "Không bao giờ tạo ra một cá thể giao tiếp bên trong một cuộc gọi hàm [nếu bạn không biết điều gì xảy ra bên trong]"

Giải pháp tốt nhất tôi có thể nghĩ là viết một phương pháp mẫu trong lớp cơ sở đó giúp tiết kiệm phân biển kiểm tra thông qua và kêu gọi một DoUseTestOrNot phương pháp trừu tượng.

EDIT Delphi 2010

Answer 1

Đó là một biểu hiện khác của các lỗi here.
Tôi sẽ thêm điều này vào báo cáo QC.

Điều này không tái tạo trong bản cập nhật XE Delphi 1 nữa.

--jeroen

Answer 2

Thêm một để bạn khai ITest guid

ITest = interface 
['{DB6637F9-FAD3-4765-9EC1-0A374AAC7469}'] 
    procedure Test; 
end; 

Thay đổi vòng lặp này

for x in list do 
    x.UseTestOrNot(Tester.Create as ITest); 

Các GUID là neccesary để có thể sử dụng as

Test.Create as ITest làm cho trình biên dịch để thêm việc phát hành nơi các đối tượng được tạo ra đi ra khỏi phạm vi.