Утечка памяти

[ZvEr_HaCkEr]

Всем привет.Вот возник вопрос по поводу утечки памяти в Delphi.Я обнаружил что в моей игре происходит утечка памяти размером 5028 байт.Это много???

[MaxNik2009]

утечка памяти размером 5028 байт.Это много???

это 4.9 кБ... Не много.

[Gambler]

много или мало - не важно. Любые утечки надо убирать. А то потом выльется....

[Alex Cones]

Ищите соответствия Create..Free.

[GunSmoker]

В утечках важен не размер, а их периодичность.

Читаем:

http://www.transl-gunsmoker.ru/2009/...g-post_06.html
http://www.gunsmoker.ru/2009/05/blog-post_24.html
http://www.gunsmoker.ru/2010/02/redux.html

[ZvEr_HaCkEr]

так утечка одновременная,то есть происходит в блоке OnClick кнопки

[pproger]

2ZvEr_HaCkEr
ну может код покажешь этой он клик?

[ZvEr_HaCkEr]

procedure TForm1.Animals1Click(Sender: TObject);
  var
  kolichistvo: integer;
begin
try
   error:='Ошибка обращения к файлу animals.bmp';
  Pictures := TBitmap.Create;
  Pictures.LoadFromFile('sources\pictures\animals.bmp');
  HK := Pictures.Height;
  WK := HK;
 kolichistvo:= Round(Pictures.Width / WK);
  if np <= 18
    then H := max_h;
    n:=0;
  W := max_w;
  Form1.ClientHeight := H * HK;
  Form1.ClientWidth := W * WK;
  Form1.Timer1.Enabled := False;
  Form1.Timer1.Interval := 200;
  newgame;
  schet:=0;//счетчик открытых картинок
except
  messagedlgpos(error,mterror,[mbOK],0,round(form1.Left+form1.Width/4),round(form1.Top+form1.Height/3));
     exitprocess(0);
end;
end;

[Arigato]

Pictures.Free может добавить.

[Stilet]

Pictures := TBitmap.Create;

Создали. А где освобождение?

if Picture=nil then Pictures := TBitmap.Create;

P.S. Или как Аригато сказал.