VPF::function GetImage : TBitmap; - Форум программистов

HackMan

Дата 14.2.2007, 01:29 (ссылка)

(нет голосов)

Загрузка ...

Юзверь-программист

Профиль
Группа: Участник
Сообщений: 391
Регистрация: 18.6.2005
Где: .ua

Репутация: нет
Всего: 9

Код


function GetImage : TBitmap;
begin
  Result := TBitmap.Create;
  // чё-то рисуем
end;

Код


  // чё-то делаем
  try
    Bm := TBitmap.Create;
    Bm.Assign(GetImage);
    // чё-то делаем
  finally
    Bm.Free;
  end;

Корректно ли такая функция работает с памятью? По завершению программы позаботиться ли Delphi об освободжения памяти GetImage? Объясните ход работы...

--------------------

Завтра - это самый загруженный день недели smile

Bose

Дата 14.2.2007, 02:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51

В коде создаётся объект TBitmap(Bm),

Код


  // чё-то делаем
  try
    Bm := TBitmap.Create;
    Bm.Assign(GetImage);
    // чё-то делаем
  finally
    Bm.Free;
  end;

В GetImage создаётся ещё один объект TBitmap,
после этого свойства объекта из GetImage присваиваются свойствам объекта Bm,
после чего ссылка на объект созданный в GetImage теряется,
а объект Bm освобождается(Bm.Free).

Утечка памяти - один объект TBitmap.

Чтобы избежать утечки, достаточно изменить код вызова GetImage на следующий:

Код


  // чё-то делаем
  try
   //    Bm := TBitmap.Create; // не создаём, объект будет создан в GetImage
    Bm:=GetImage; //присваеваем пустой(пока) переменной объект созданный в GetImage
    // чё-то делаем
  finally
    Bm.Free; 
  end;

--------------------

Лучшее о Delphi за 2013 год. Подборка ссылок.

HackMan

Дата 14.2.2007, 04:16 (ссылка)

(нет голосов)

Загрузка ...

Юзверь-программист

Профиль
Группа: Участник
Сообщений: 391
Регистрация: 18.6.2005
Где: .ua

Репутация: нет
Всего: 9

спасибо! так и думал smile

--------------------

Завтра - это самый загруженный день недели smile

MetalFan

Дата 14.2.2007, 09:18 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Цитата(HackMan @ 14.2.2007, 01:29

)

По завершению программы позаботиться ли Delphi об освободжения памяти GetImage?

позоботится, но не делфи, а ОС.
однако стоит раньше самому позаботиться, ибо ресурсы ОС не бесконечны ;)

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »