Кладову: утечка памяти в 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]

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

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