Скачать: CL | DM;

Кладову: утечка памяти в KOL   Найти похожие ветки 

← →
miek ©   (2003-09-24 23:11) [0]

При каждом преобразовании битмапов происходит сильная утечка памяти, Пример:
(каждое нажатие кнопки увеличивает занятую память на несколько МБ)

...
var
 p: pbitmap;
....

procedure TForm1.KOLForm1FormCreate;
begin
 p:= newbitmap( 100, 100);
 p.pixelformat:= pf32bit;
end;

...

procedure TForm1.Button1Click;
var
 i: integer;
begin
 for i:= 1 to 100 do
   begin
     p.pixelformat:= pf8bit;
     p.pixelformat:= pf32bit;
   end;
 form.caption:= int2str( allocmemsize);
end;
...

---

← →
Vladimir Kladov   (2003-09-26 12:52) [1]

асм версия расходится с паскалем. Поправлю.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.033 c