Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > C++ Builder > Не коректное удаление объэкта

Автор: Sergio 29.4.2007, 23:40

Здраствуйте не могу корректно удалить экземпляр класса. Он удаляется, но "выбивает" ошибку. Почему? Какие решения этой проблемы? Вот как я делаю:

File1.h

Код


class PrivateForm {

 private:
    String Ip;
    String Nick;

    TForm* Forma;
    TMemo* ReceiveMemo;
    TMemo* ReceiveMemo2;
    TButton* SendButton;

 public:
    PrivateForm(String _IP, String _Nick);
    Close();
    ~PrivateForm();

 };

Fil1.cpp

Код


  PrivateForm::PrivateForm(String _IP, String _Nick) {

        Forma = new TForm(Application, 1);
        Forma->Width = 320;
        Forma->Height = 365;
        Forma->Left = Form1->Left + Form1->Width/2 - (Forma->Width/2);
        Forma->Top = Form1->Top + Form1->Height/2 - (Forma->Height/2);
        Forma->BorderStyle = bsSingle;
        Forma->BorderIcons = TBorderIcons() <<biSystemMenu <<biMinimize;
        Forma->Caption = "Dialog with: " + _Nick;
        Forma->Show();

        ReceiveMemo = new TMemo(Forma);
        ReceiveMemo->Parent = Forma;
        ReceiveMemo->Left = 1;
        ReceiveMemo->Top = 5;
        ReceiveMemo->Width = Forma->Width - 12;
        ReceiveMemo->Height = 200;
        ReceiveMemo->ScrollBars = ssVertical;
        ReceiveMemo->ReadOnly = true;

        ReceiveMemo2 = new TMemo(Forma);
        ReceiveMemo2->Parent = Forma;
        ReceiveMemo2->Left = 1;
        ReceiveMemo2->Top = ReceiveMemo->Height + 30;
        ReceiveMemo2->Width = Forma->Width - 12;
        ReceiveMemo2->Height = 60;
        ReceiveMemo2->ScrollBars = ssVertical;
        ReceiveMemo2->Font->Size = 10;

        SendButton = new TButton(Forma);
        SendButton->Parent = Forma;
        SendButton->Left = Forma->Width - SendButton->Width - 15;
        SendButton->Top = Forma->Height - SendButton->Height - 45;
        SendButton->Caption = "Send";        
     };

  PrivateForm::Close() {
      this->~PrivateForm();
   }

  PrivateForm::~PrivateForm() {
       delete Forma;
       delete ReceiveMemo;
       delete ReceiveMemo2;
       delete SendButton;
   };

Удаление:

Код


PrivateForm* privateform = new PrivateForm( " ", " ");
 privateform->Close();        //Вызов деструктора

Автор: Daevaorn 29.4.2007, 23:45

Цитата(Sergio @ 30.4.2007, 00:40

)

Удаление:

а просто delete почему не сделать? Раз есть new, значит должен быть и delete. Всё остальное - грабли.

Автор: Xenon 29.4.2007, 23:50

Да, тут даже гадать не имеет смысла о всяких освобождениях памятии, про free. Просто delete используй.

Автор: Sergio 29.4.2007, 23:53

Код


delete privateform;

Daevaorn, не "канает". Та же проблема

Автор: Xenon 29.4.2007, 23:56

Мне еще этот фрагмент кода не нравится:

Код


  PrivateForm::Close() {
      this->~PrivateForm();
   }

Зачем?

Автор: Daevaorn 30.4.2007, 00:02

Цитата(Sergio @ 30.4.2007, 00:53

)

Daevaorn, не "канает". Та же проблема

форма и другие компоненты кому-то пренадлежат, а значит их не нужно удалять вручную. это сделает владелец. а вообще-то с такими вопросами в другой раздел надо.

Автор: Sergio 30.4.2007, 00:05

Xenon, хочу удалять объект через этот метод. Для читабильности сделал smile

Daevaorn, без удаления формы, и других компонентов форма остаётся видимой.
Я решыл проблему smile

Нужно сначала удалять компоненты на форме, о потом и саму форму. Все спасибо.

Добавлено через 9 минут и 7 секунд
P.S. Как проверить удалился ли объэкт?

Автор: zkv 30.4.2007, 00:18

Цитата(Sergio @ 29.4.2007, 23:40

)

       delete Forma;
       delete ReceiveMemo;
       delete ReceiveMemo2;
       delete SendButton;

Может строки в обратном порядке стоит расставить smile

Цитата

Xenon, хочу удалять объект через этот метод. Для читабильности сделал

Автор: Xenon 30.4.2007, 00:21

Кстати верно подметил zkv ... объекты же в обратном порядке должны удаляться.
"пальцы ломают" не надо писать в ковычках smile

) Я бы натурально ломал

Sergio, смотри тему снизу и получи овтет - никак smile

Автор: archimed7592 30.4.2007, 01:44

Sergio, как только ты напишешь control.Parent = Form, управление временем жизни контрола берет на себя форма... удаляя контролы явно (delete бла-бла-бла) ты их действительно удаляешь, но, чуть позже, когда форма удаляется, она пытается их удалить во второй раз - здесь могут быть грабли... а может и не быть, если в деструкторе контрола он выписывает себя из состава формы - не помню как это в vcl реализовано...
явные грабли здесь: this->~PrivateForm()... ты явно вызываешь деструктор... этого делать почти никогда не нужно... по крайней мере, делается это только при полном осозновании происходящего и при явной надобности этого...
изначальная задача в билдере решается оч просто: form1 = new Form1 (); /* ... */; delete from1; никаких явных Close/деструкторов/удаления контролов НЕ НУЖНО...