là cách tốt nhất để kiểm soát vòng đời loại đối tượng kiểu trường?

Question

TMyClass = class(TObject) 
private 
    FMyObject: TObject; 
    function GetMyObject: TObject; 
public 
    property MyObject: TObject read GetMyObject write FMyObject; 
end; 

function TMyClass.GetMyObject: TObject; 
begin 
    if FMyObject = nil then 
    FMyObject := TObject.Create; 

    Result := FMyObject; 
end; 

Đôi khi, "MyObject" không được tạo bên trong mà được tạo ra bên ngoài và gán cho tham số. Nếu đối tượng này được tạo ra bên ngoài, tôi không thể giải phóng nó trong ngữ cảnh này.

Tôi có nên tạo TList và Thêm vào tất cả các đối tượng đã được tạo bên trong và phá hủy mọi thứ trên trình phá hủy không?

Làm cách nào để kiểm soát tuổi thọ của tham số nếu nó được tạo nội bộ hay không? Những gì bạn đề nghị để làm gì? Có mô hình nào để làm điều này không?

Answer 1

Tôi đoán tốt nhất là thiết kế lại mã của bạn để vấn đề này không phát sinh - loại sự mơ hồ về quyền sở hữu này là một mớ hỗn độn.

Dù sao, một tùy chọn sẽ là sử dụng giao diện (tham chiếu được tính). Đây là vấn đề trong trường hợp tham chiếu vòng tròn.

Nếu các đối tượng bên ngoài tạo ra không phải là tài liệu tham khảo chỉ sau đó bạn vẫn có thể tạo ra bản sao nội bộ của đối tượng, một cái gì đó giống như

procedure TMyClass.SetMyObject(const Value: TObject); 
begin 
    MyObject.Assign(Value); 
end; 

Bạn có thể gán đối tượng bên ngoài để lĩnh vực khác với nội bộ và sau đó bạn don' t Free trường đó trong destructor. Hoặc thiết lập một lá cờ trong setter tài sản để bạn biết không để giải phóng các đối tượng bên ngoài ...

Answer 2

tôi muốn thiết lập một lá cờ trong tài sản Setter

procedure TMyClass.SetMyObject(AObject: TObject); 
begin 
    if Assigned(MyObject) and FIsMyObject then 
    FMyObject.Free; 
    FIsMyObject := False; 
    FMyObject := AObject; 
end; 

function TMyClass.GetMyObject: TObject; 
begin 
    if FMyObject = nil then 
    begin 
    FMyObject := TObject.Create; 
    FIsMyObject := True; 
    end; 

    Result := FMyObject; 
end; 

Destructor TMyClass.Destroy; 
begin 
    if FIsMyObject then 
     FMyObject.Free; 
end; 

Answer 3

Hai giải pháp hợp lý và thiết thực nhất (giữ một lá cờ, sao chép về chuyển nhượng) đã được đưa ra, nhưng vì lợi ích đầy đủ và vì trường đối tượng không có khả năng thuộc loại Tobject, đây là ba phương pháp tiếp cận khác. Tính thực tiễn của chúng phụ thuộc vào loại trường đối tượng, cho dù bạn thực sự không muốn có thêm cờ boolean và liệu bạn không thích thêm một số hành vi thông minh vào cấu trúc này.

(Cảnh báo: đây có thể là một chút cường điệu.)

• Kiểm tra nếu lĩnh vực đối tượng là các loại đối tượng riêng của bạn:

  property MyObject: TSomeAncestor read GetMyObject write SetMyObject; 
      end; 
  
  implementation 
  
  type 
      TMyObject = class(TSomeAncestor) ... end; 
  
  destructor TMyClass.Destroy; 
  begin 
      if FMyObject is TMyObject then 
      FMyObject.Free; 
  

• Thử nghiệm trên quyền sở hữu của trường đối tượng:

  property MyObject: TOwnedObject read GetMyObject write SetMyObject; 
      end; 
  
  implementation 
  
  destructor TMyClass.Destroy; 
  begin 
      if FMyObject.Owner = Self then 
      FMyObject.Free; 
  

  Con này struction đặc biệt hữu ích nếu đối tượng bên ngoài nên được giải phóng bởi lớp này: chỉ cần thiết lập chủ sở hữu của nó cho cá thể lớp này. Quyết định này không còn phụ thuộc vào việc tạo ra bên trong hoặc bên ngoài của đối tượng.

• Nếu trường đối tượng xuống từ TComponent, thì bạn không phải hoàn toàn miễn phí.