Причины утечек памяти в программе наследования от TObjectList

Delphi , Компоненты и Классы , Коллекции

Утечки памяти в программе, наследующей от TObjectList, могут быть вызваны неправильной настройкой свойства OwnsObjects. При наследовании от TObjectList важно явно указать, что объекты, добавляемые в список, должны быть уничтожены при освобождении списка. Это можно сделать, вызывая конструктор TObjectList и передавая параметр OwnsObjects = True.

Если не указать этот параметр, объекты не будут уничтожены при освобождении списка, что приведет к утечке памяти. Например, в следующем коде утечка памяти происходит из-за того, что конструктор TObjectList вызывается без параметра OwnsObjects:

type
  TDerivedGenericObjectList = class(TObjectList<TObject>)
  public
    constructor Create;
  end;

constructor TDerivedGenericObjectList.Create;
begin
  inherited;
end;

var
  List: TDerivedGenericObjectList;

begin
  ReportMemoryLeaksOnShutdown := True;
  List := TDerivedGenericObjectList.Create;
  List.Add(TObject.Create);
  List.Free;
end.

Чтобы исправить эту проблему, нужно явно указать, что объекты должны быть уничтожены при освобождении списка:

type
  TDerivedGenericObjectList = class(TObjectList<TObject>)
  public
    constructor Create(AOwnsObjects: Boolean = True);
  end;

constructor TDerivedGenericObjectList.Create(AOwnsObjects: Boolean);
begin
  inherited Create(AOwnsObjects);
end;

var
  List: TDerivedGenericObjectList;

begin
  ReportMemoryLeaksOnShutdown := True;
  List := TDerivedGenericObjectList.Create(True);
  List.Add(TObject.Create);
  List.Free;
end.

Также можно сделать так, чтобы конструктор по умолчанию устанавливал OwnsObjects в True:

type
  TDerivedGenericObjectList = class(TObjectList<TObject>)
  public
    constructor Create;
  end;

constructor TDerivedGenericObjectList.Create;
begin
  inherited Create(True);
end;

var
  List: TDerivedGenericObjectList;

begin
  ReportMemoryLeaksOnShutdown := True;
  List := TDerivedGenericObjectList.Create;
  List.Add(TObject.Create);
  List.Free;
end.

В любом случае, важно помнить о том, что при наследовании от TObjectList нужно явно указать, что объекты должны быть уничтожены при освобождении списка, чтобы избежать утечек памяти.

Создано по материалам из источника по ссылке.

Описание контекста: В данном контексте речь идет об утечках памяти в программе, наследующей от TObjectList, вызванных неправильной настройкой свойства OwnsObjects, и о важности явно указывать, что объекты должны быть уничтожены при освобождении списка,

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Коллекции ::