Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.08.14;
Скачать: CL | DM;

Вниз

"memory hoarding" problem   Найти похожие ветки 

 
jarek   (2009-03-03 17:50) [0]

Hi all,
I have problem with this code:
program FormsTest;

uses
 KOL;

type
 PForm1 = ^TForm1;
 TForm1 = object(TObj)
 Form: PControl;
public
 procedure FrmClick(Sender: PObj);
end;

var
 Form1: PForm1;

procedure NewForm1(var Result: PForm1; AParent: PControl);
begin
 New(Result,Create);
 with Result^ do
 begin
   Form := NewForm(AParent,"Form1").SetSize(320,240);
   Form.OnFormClick := FrmClick;
 end;
end;

procedure TForm1.FrmClick(Sender: PObj);
var
 NewForm: PForm1;
begin
 NewForm1(NewForm,Applet);
 NewForm.Form.Show;
 NewForm.Free;
end;

begin
 Applet := NewApplet("Forms Test");
 NewForm1(Form1,Applet);
 Run(Applet);
end.

Application takes  after start 3108 kB of memory.
When I click on the form, new window opens and application takes more of memory. If I close this new window, the usage of RAM not changes.
If I open 100 new windows, application takes 3376 kB of RAM. If I close all new windows, application still takes 3376 kB of RAM.
Can anybody help me?
Thanks. jarek


 
Дмитрий К ©   (2009-03-03 20:35) [1]

in NewForm1
Form := NewForm( ...
Form.Add2AutoFree(Result);


 
Jon ©   (2009-03-03 22:01) [2]

Also make use of
SetProcessWorkingSetSize(GetCurrentProcess,Cardinal(-1),Cardinal(-1));
at convenient places, such as after freeing form.



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

Текущий архив: 2011.08.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
15-1303237191
delphi_developer
2011-04-19 22:19
2011.08.14
team lead и senior software engineer - одно и тоже?


15-1303417791
Юрий
2011-04-22 00:29
2011.08.14
С днем рождения ! 22 апреля 2011 пятница


1-1261140235
vlad2
2009-12-18 15:43
2011.08.14
Максимальное количество Series в TChart?


6-1240371968
MultIfleX
2009-04-22 07:46
2011.08.14
pcap packet format


1-1261613044
Fosgen
2009-12-24 03:04
2011.08.14
array [] of procedure() of object