Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Пожиратель памяти [D6, D7, 2000, XP]


kernel ©   (2006-05-22 12:25:00) 

Подскажите кто-нибудь, пишу программу, в ней у меня используются 22 формы (ну необходимо столько), вроде бы "отображаю" их правильно, примерно так:

procedure PrimerPoyavleniyaFormi;
var
myform: TMyForm;
begin
myform:=TMyForm.Create(Application);
myform.ShowModal;
myform.Free; // <<<
end;


а памяти жрет у меня такая программка ~16-17 метробайт. Вопрос: Как избавить программу от столь неприятного засидания в памяти?


Loginov Dmitry   (2006-05-22 13:51:00) [1]

А разве 16-17 метров для такой проги это много?
Ерунда, имхо.


Elen   (2006-05-22 13:06:00) [2]

А в чем задача? Может есть другие способы попроще?


tesseract   (2006-05-22 13:00:00) [3]


> показываю их при необходимости

Создавай их по мере необходимости :-)


kernel   (2006-05-22 12:59:00) [4]


> ты что сразу все формы на экране видишь?


показываю их при необходимости


Elen   (2006-05-22 12:54:00) [5]

Кол-во строк в исходнике о размере кода мало говорит.
А что ты на формах выводиш?
ты что сразу все формы на экране видишь?


kernel   (2006-05-22 12:52:00) [6]

Ну а может быть из-за того, что программа "большая", в смысле исходник (~42000 строк).  :\


Desdechado   (2006-05-22 12:48:00) [7]

зачем, если у тебя showmodal ?
он ведь не даст возможности переключиться в другую форму

а память отъедают всякие рюшечки на формах


kernel   (2006-05-22 12:38:00) [8]


> А тебе что сразу все 22 формы надо загружать?


Да :)


Elen   (2006-05-22 12:33:00) [9]


> null

А тебе что сразу все 22 формы надо загружать?


Desdechado   (2006-05-22 12:31:00) [10]

memprof

в примере я бы сделал так
begin
with(TMyForm.Create(Application))do
try
ShowModal;
finally
release;
end;
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо