Кладову: утечка памяти в KOL
miek © (2003-09-24 23:11:00)
При каждом преобразовании битмапов происходит сильная утечка
памяти, Пример:
(каждое нажатие кнопки увеличивает занятую память на
несколько МБ)
...
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:00) [1]
асм версия расходится с паскалем. Поправлю.
Наверх 
ЧАТ |
Орешник |
|
