1 апреля 2012 г.

Задачка №14

В чём проблема в этом коде?

В этом коде есть проблема с утечкой памяти. Не могли бы вы её указать?
function CalcTextSize(const AFont: TFont; const AText: String): TSize;
var
  Test: TBitmap;
begin
  Test := TBitmap.Create;
  try
    Test.Canvas.Font := AFont;

    Result := Test.Canvas.TextExtent(AText);
  finally
    FreeAndNil(Test);
  end;
end;
Как бы вы исправили этот код?

Ответ на задачку будет выложен, как обычно, через месяц.

Ответ.

8 комментариев :

  1. на вскидку

    OldFont := Test.Canvas.Font;
    try
    ...
    finally
    Test.Canvas.Font := OldFont;
    end;

    ОтветитьУдалить
  2. вместо Test.Canvas.Font := AFont;
    надо
    Test.Canvas.Font.assign(AFont);

    ОтветитьУдалить
  3. В Delphi XE2 утечка не наблюдается (проверено на 1000000 вызовах CalcTextSize). Потенциально утечка возможна в месте присвоения шрифта:

    Test.Canvas.Font := AFont;

    Однако назначение шрифта Canvas'у выполняется с помощью Assign:

    procedure TCanvas.SetFont(Value: TFont);
    begin
    FFont.Assign(Value);
    end;

    При этом в Assign происходит копирование свойств одного шрифта в другой, без перезаписи самого FFont, что не влечет за собой утечку.

    ОтветитьУдалить
  4. Человек_Борща1 апреля 2012 г. в 23:12

    Нет там ошибок.

    ОтветитьУдалить
  5. На первый взгляд (без Delphi): меня сразу смутило, что это делается через BitMap, DeviceContext для которого выбирается по умолчанию, а значит и ценность функции сомнительна (а если несколько устройств вывода, типа принтера и т.п.?) Правильнее было бы передавать Canvas "сверху"... ну или хотябы HDC. Ну и при работе с Canvas рекомендуется использовать блокировки.

    На второй взгляд (с Delphi, но без тестирования): покопавшись в Graphics.pas, я нашёл в каких случаях этот код может приводить к некорректному результату... но не к утечке памяти.
    Хм... а хотя, может быть даже и к утечке, но это надо чтобы "повезло" :с)

    ОтветитьУдалить
  6. Все правильно сказал FLABER, во всех встроенных классах присваивание свойств TFont делается с помощью Assign поэтому утечек там нет. Это начиная с 6 делфи (как минимум).

    ОтветитьУдалить

Можно использовать некоторые HTML-теги, например:

<b>Жирный</b>
<i>Курсив</i>
<a href="http://www.example.com/">Ссылка</a>

Вам необязательно регистрироваться для комментирования - для этого просто выберите из списка "Анонимный" (для анонимного комментария) или "Имя/URL" (для указания вашего имени и (опционально) ссылки на сайт). Все прочие варианты потребуют от вас входа в вашу учётку.

Пожалуйста, по возможности используйте "Имя/URL" вместо "Анонимный". URL можно просто не указывать.

Ваше сообщение может быть помечено как спам спам-фильтром - не волнуйтесь, оно появится после проверки администратором.

Примечание. Отправлять комментарии могут только участники этого блога.