Очистка памяти в TStringGrid: решение утечки в 64-битных приложениях Delphi XE7 с Firemonkey

Delphi , Синтаксис , Память и Указатели

Проблема, с которой сталкиваются разработчики, работающие с компонентом TStringGrid в среде Delphi XE7 с использованием технологии Firemonkey, заключается в утечке памяти. Это происходит при использовании события onDrawColumnCell, которое изменяет цвет ячеек, если их значение отличается от 'Normal'. Утечка памяти проявляется только тогда, когда ячейки отображаются на экране в красном цвете.

Пример кода, вызывающего утечку памяти:

procedure TForm.grid_DrawColumnCell(Sender: TObject; const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF; const Row: integer; const Value: TValue; const State: TGridDrawStates);
var
  RowColor: TBrush;
begin
  RowColor := TBrush.Create(TBrushKind.Solid, TAlphacolors.Alpha);
  if (Value <> 'Normal') then
    RowColor.Color := TAlphacolors.Red
  else
    RowColor.Color := TAlphacolors.Null;
  Canvas.FillRect(Bounds, 0, 0, [], 1, RowColor);
  TGrid(Sender).DefaultDrawColumnCell(Canvas, Column, Bounds, Row, Value, State);
end;

Решение проблемы утечки памяти:

Проблема заключается в неправильном управлении ресурсами. Создаваемый объект TBrush не освобождается после использования, что и приводит к утечке памяти. Для решения этой проблемы необходимо следовать стандартному шаблону управления ресурсами:

Obj := TMyClass.Create;
try
  // работа с объектом
finally
  Obj.Free;
end;

В контексте вашего кода, вместо TMyClass следует использовать RowColor. Этот шаблон следует применять для всех объектов, управление жизненным циклом которых лежит на разработчике, и которые не используются за пределами функции, в которой они созданы.

Оптимизированный код:

procedure TForm.grid_DrawColumnCell(Sender: TObject; const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF; const Row: integer; const Value: TValue; const State: TGridDrawStates);
var
  RowColor: TBrush;
begin
  if Value <> 'Normal' then
  begin
    RowColor := TBrush.Create(TBrushKind.Solid, TAlphacolors.Red);
    try
      Canvas.FillRect(Bounds, 0, 0, [], 1, RowColor);
    finally
      RowColor.Free;
    end;
  end;
  TGrid(Sender).DefaultDrawColumnCell(Canvas, Column, Bounds, Row, Value, State);
end;

Этот код создает TBrush только в случае, если необходимо изменить цвет ячейки, и гарантированно освобождает его после использования.

Дополнительные рекомендации:

Если вы используете полную версию FastMM, вы можете получить от нее стек выделений памяти, которые приводят к утечкам. Это обычно помогает определить причину утечки.

Важно отметить, что в случае использования мобильных компиляторов, которые используют автоматический подсчет ссылок (ARC), такая проблема не возникнет. Однако для настольных компиляторов это может быть критичным.

Следуя этим рекомендациям, вы сможете устранить утечку памяти в вашем приложении Delphi XE7 с использованием Firemonkey.

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

Проблема утечки памяти в компоненте `TStringGrid` в Delphi XE7 с Firemonkey связана с неправильным управлением ресурсами, в частности, с созданием объекта `TBrush` без его последующего освобождения, что приводит к необходимости корректно обрабатывать жиз

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

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

:: Главная :: Память и Указатели ::