class ObjectItems
{
private:
TTabSheet *Tab;
TButton *But;
TMemo *M1,*M2;
public:
void AddTab(AnsiString Caption);
void AddMemo();
void AddButton();
ObjectItems()
{
Tab = NULL;
But = NULL;
M1 = NULL;
M2 = NULL;
}
~ObjectItems()
{
M1->Free();
M2->Free();
But->Free();
Tab->Free();
}
};
void ObjectItems::AddTab(AnsiString Caption)
{
static int num = 0;
num++;
TTabSheet *tab = new TTabSheet(this);
tab->Caption = Caption;
tab->Name = "Tab"+IntToStr(num);
tab->PageControl = Form1->PageControl1;
ObjectItems::Tab = tab;
}
void ObjectItems::AddMemo()
{
if(ObjectItems::Tab)
{
static int num = 0;
num++;
TMemo *memo = new TMemo (this);
memo->Parent = ObjectItems::Tab;
if(!ObjectItems::M1) ObjectItems::M1 = memo;
else ObjectItems::M2 = memo;
}
}
void ObjectItems::AddButton()
{
if(ObjectItems::Tab)
{
static int num = 0;
num++;
TButton* but = new TButton(this);
but->Parent = ObjectItems::Tab;
ObjectItems::But = but;
}
}
TList *list = new TList;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ObjectItems *a = new ObjectItems;
a->AddTab("Строка");
a->AddMemo();
list->Add(a);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
ObjectItems *a;
a = static_cast<ObjectItems*>(list->Items[list->Count-1]);
a->~ObjectItems();
list->Delete(list->Count-1);
}
Уничтожение динамических объектов
Здравствуйте Уважаемые! Обращаюсь к Вам не столько за помощью сколько за консультацией.
Использую динамически созданные компоненты. Все функции по созданию описаны в классе.
Собственно код:
Дак вот, все работает так как надо, НО я заметил, что при таком использовании, память занятая не освобождается, хотя объекты уничтожаются в деструкторе, при долгом использовании, память довольно сильно забивается.
Работаю с классами недавно так что не ругайте сильно. В инете ничего толкового не нашел по деструкторам и объектам.
Заранее Спасибо! :)
Использую динамически созданные компоненты. Все функции по созданию описаны в классе.
Собственно код:
Код:
Дак вот, все работает так как надо, НО я заметил, что при таком использовании, память занятая не освобождается, хотя объекты уничтожаются в деструкторе, при долгом использовании, память довольно сильно забивается.
Работаю с классами недавно так что не ругайте сильно. В инете ничего толкового не нашел по деструкторам и объектам.
Заранее Спасибо! :)
метод Free в C++ нельзя использовать, это наследие от паскаля (к стати в справке об этом написано), он не вызывает деструктор объекта, отсюда и утечки памяти. Для освобождения памяти необходимо использовать delete.
Цитата: oxotnik333
метод Free в C++ нельзя использовать, это наследие от паскаля (к стати в справке об этом написано), он не вызывает деструктор объекта, отсюда и утечки памяти. Для освобождения памяти необходимо использовать delete.
Удаляю объекты вот таким способом:
Код:
Application->CreateForm(__classid(TAddressForm), &AddressForm);
delete AddressForm;
AddressForm=NULL;
delete AddressForm;
AddressForm=NULL;
и что-то память никак не уменьшается, почему?
Цитата: PoReX
и что-то память никак не уменьшается, почему?
Как измеряешь?
Цитата: hardcase
Как измеряешь?
Как, как, в диспетчере задач. как еще можно то ;)
Цитата: oxotnik333
Как, как, в диспетчере задач.
Бгг
Цитата: oxotnik333
как еще можно то ;)
Перегрузкой new и delete с подсчетом количества.
Цитата: hardcase
Бгг Перегрузкой new и delete с подсчетом количества.
Ну это из обрасти фантастики. Нем более что у автора new не используется.
Цитата: oxotnik333
Ну это из обрасти фантастики. Нем более что у автора new не используется.
Используется.
Код:
...
private:
TTabSheet *Tab;
TButton *But;
TMemo *M1,*M2;
...
void ObjectItems::AddTab(AnsiString Caption)
{
static int num = 0;
num++;
TTabSheet *tab = new TTabSheet(this);
tab->Caption = Caption;
tab->Name = "Tab"+IntToStr(num);
tab->PageControl = Form1->PageControl1;
ObjectItems::Tab = tab;
}
private:
TTabSheet *Tab;
TButton *But;
TMemo *M1,*M2;
...
void ObjectItems::AddTab(AnsiString Caption)
{
static int num = 0;
num++;
TTabSheet *tab = new TTabSheet(this);
tab->Caption = Caption;
tab->Name = "Tab"+IntToStr(num);
tab->PageControl = Form1->PageControl1;
ObjectItems::Tab = tab;
}
А не уменьшается - потому что нигде не чистится. Удаление формы не удаляет объекты.
Цитата: kot_
Используется.
Оксотник имел в виду тот факт, что ТС не использует этот подход.
Ну как не использует? Он создает объекты при помощи new.
Цитата: hardcase
Оксотник имел в виду тот факт, что ТС не использует этот подход.
Только не ТС, а второй вопрошающий PoReX
У вас что тоже жарко?
Мозги плавятся? Поливайтесь водичкой.
Не ужели так трудно посмотреть в тему, вместо того что бы всякую фигню писать?
Мозги плавятся? Поливайтесь водичкой.
Не ужели так трудно посмотреть в тему, вместо того что бы всякую фигню писать?
вот страна! xD
Цитата: oxotnik333
[off]
мда. ну тогды конешно понятно. Но в принципе об этом еще Лермонтов писал:
Цитата:
Прощай немытая Россия,
Страна рабов, страна господ.
И вы мундиры голубые,
И ты им преданный народ...
Страна рабов, страна господ.
И вы мундиры голубые,
И ты им преданный народ...
А щас даже за стеной Кавказа скрыться не реально - свое нымытое рыло путинка сует повсюду.
Хотя у вас там как оказалось есть еще комсомольцы:
[QUOTE=vlksm]Вода в стандарте пью все время из под крана,запаха нет.[/QUOTE]
хуле. судя по подписи парниша из запоя уж который год не выходит - какой уж там запах.
[/off]
Вобщем ты имел ввиду что второй поциент не использует new?
Но на самом деле это не принципиально - память все равно будет чистится - ведь во первых выделение происходит при вызове CreateForm по сути вызывается именно он - это раз. А второе - указатель на форму является глобальным. И это важно. Поэтому у него и не происходит очистки памяти - он забыл убрать форму из Auto-create в Available. Можешь сам проверить.
Первый кстати тоже вполне получит такие же бока. У него указатель может переопределятся произвольное количество раз - а предыдущий объект никто нужным удалять не считает.
Седня воды купить питьевой негазированной в кинотеатре на окраине москвы - 150 рублей. =) "Чистейшая вода из альп" написано. Нахрена она нам тут. ^_^ Понятно, что все погано, но не решение. :)
Цитата: kot_
Вобщем ты имел ввиду что второй поциент не использует new?
Но на самом деле это не принципиально - память все равно будет чистится - ведь во первых выделение происходит при вызове CreateForm по сути вызывается именно он - это раз. А второе - указатель на форму является глобальным. И это важно. Поэтому у него и не происходит очистки памяти - он забыл убрать форму из Auto-create в Available. Можешь сам проверить.
Первый кстати тоже вполне получит такие же бока. У него указатель может переопределятся произвольное количество раз - а предыдущий объект никто нужным удалять не считает.
Создаваемая форма находится в Available. Т.е. нужно сделать ее локальной? Память проверяю через диспетчер задач.
Если напрягает рост памяти (по диспетчеру задач) можно просто скидывать резервы системы:
после удаления указателя формы.
Код:
SetProcessWorkingSetSize(GetCurrentProcess(), -1, -1);
после удаления указателя формы.
Цитата: PoReX
Создаваемая форма находится в Available. Т.е. нужно сделать ее локальной? Память проверяю через диспетчер задач.
Значит причина утечек не в этом коде вероятнее всего. Хотя я например предпочитаю использовать локальные указатели и вызывать явно new.
У меня приведенный ниже код очищает память полностью:
Код:
Application->CreateForm(__classid(TForm2), &Form2);
Form2->ShowModal();
delete Form2;
Form2 = NULL;
Form2->ShowModal();
delete Form2;
Form2 = NULL;
Ищи меморилики в других местах. Либо на создаваемой форме у тебя находится компонент требующий дополнительных шагов для закрытия. Либо ты привел не весь код (а в чем смысл создания и сразу же удаления?) и у тебя гдето происходит переопределение указателя.
Цитата: kot_
У меня приведенный ниже код очищает память полностью:
Код:
Application->CreateForm(__classid(TForm2), &Form2);
Form2->ShowModal();
delete Form2;
Form2 = NULL;
Form2->ShowModal();
delete Form2;
Form2 = NULL;
Даже этот код в новом проекте не очищает. Только 100Кб освобождаются после закрытия формы. По крайней мере в диспетчере так.
Цитата: kot_
Ищи меморилики в других местах. Либо на создаваемой форме у тебя находится компонент требующий дополнительных шагов для закрытия.
Пробовал сначала удалить все компоненты, а потом форму - эффект тот же.
Цитата: kot_
.....(а в чем смысл создания и сразу же удаления?) .....
Там в конструкторе ShowModal() стоит.
Вот ниже мой код
Ну во первых, я бы тебе посоветовал узнать больше о волшебном слове this, о инициализации полей класса и обращаться в методах класса к его полям либо только по имени, либо используя this. Конструкция вида AddressForm->Height тем более в конструкторе - недопустима и имеет проблемы - несмотря на то, что бидлер это "хавает".
Я бы возможно сделал бы замечания по архетектуре приложения - но принципиальных ошибок вроде нет. Как нет и утечек памяти. Памяти освобождается ровно столько, сколько и выделяется - рост объема памяти для приложения связан с системными механизмами оптимизации.
Все это с одной оговоркой - я тестировал проект под 6 билдером - соотвественно под студией могут быдь немного другие проблемы.
Я бы возможно сделал бы замечания по архетектуре приложения - но принципиальных ошибок вроде нет. Как нет и утечек памяти. Памяти освобождается ровно столько, сколько и выделяется - рост объема памяти для приложения связан с системными механизмами оптимизации.
Все это с одной оговоркой - я тестировал проект под 6 билдером - соотвественно под студией могут быдь немного другие проблемы.
Как сбросить резервируемую для процесса память - выше показано.
Спасибо за советы, буду разбираться.