Удаление динамически созданных объектов

@delete1991 · Регистрация: 05.02.2011

Студворк — интернет-сервис помощи студентам

Помогите плз. Пишу курсач по МИО. Вот ща работаю над интерфейсом. Я по нажатию кнопку создаю динамически объект edit. Хочу теперь при нажатии другой кнопки удалять этот объект, но не пойму как это реализовать. Помогите плз.
Вот мой код клавиши по которой создается объект. Всего может создатся 6 динамических объектов

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (i_e<=6) { //дин.создание edit (ограничение 6 дин.созданных edit)
        top_edit+=30;
        height_group+=30;
        GroupBox1->Height=height_group;
        TEdit *edit=new TEdit(this);
        edit->Parent=GroupBox1;
        edit->Name="Edit"+AnsiString(i);
        edit->Text="";
        edit->Width=337;
        edit->Height=27;
        edit->Left=8;
        edit->Top=top_edit;
        i++;
        i_e++;
        }
        else ShowMessage("Превышен лимит создаваемых полей ввода");
}

cpp_developer · 06.02.2011, 01:17

Для прммера

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
TForm1 *Form1;
TEdit *edit;
...
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (i_e<=6) { //дин.создание edit (ограничение 6 дин.созданных edit)
top_edit+=30;
height_group+=30;
GroupBox1->Height=height_group;
edit=new TEdit(this);
...
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  delete edit;
}

НО, если ты указываешь владельца, в данном случае this = Form1, то самостоятельно - delete edit; - делать нужды нет, потому что он будет разрушен при разрушении владельца, то есть delete edit; - лишнее. Другое дело, когда, например, делаешь

C++
1
TString *list = new TStringList; // (this) - отсутствует

тогда необходимо указать

C++
1
delete list;

, например, при разрушении формы.

Ну да, если самостоятельно - тогда

C++
1
2
3
4
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  delete edit;
}

если у тебя массив - тогда

C++
1
2
3
4
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  delete[] edit;
}

@delete1991 · 06.02.2011, 01:34 **[ТС]**

вот я исправил как вы мне написали кнопку создания объекта

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (i_e<=6) { //дин.создание edit (ограничение 6 дин.созданных edit)
        top_edit+=30;
        height_group+=30;
        GroupBox1->Height=height_group;
        edit=new TEdit(GroupBox1);
        edit->Parent=GroupBox1;
        edit->Name="Edit"+AnsiString(i);
        edit->Text="";
        edit->Width=337;
        edit->Height=27;
        edit->Left=8;
        edit->Top=top_edit;
        i++;
        i_e++;
        }
        else ShowMessage("Превышен лимит создаваемых полей ввода");
}

Вот кнопка удаления объекта

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::Button1Click(TObject *Sender)
{
delete edit;
top_edit-=30;
height_group-=30;
GroupBox1->Height=height_group;
i--;
i_e--;
}

но есть проблемка. Пусть я создал 3 объекта. При нажатии удаления 2 раз, вылетает ошибка "Access violation at address 00000037. Read of address 00000037.
Что я не так сделал??? как можно сделать так чтобы небыло этой ошибки?

cpp_developer · 06.02.2011, 01:45

вы удаляете не "физический" объект на форме !!! - а указатель в памяти !!!

При нажатии удаления 2 раз, вылетает ошибка "Access violation at address 00000037. Read of address 00000037.
Что я не так сделал??? как можно сделать так чтобы небыло этой ошибки?

Правильно, потому что вы уже удалили указатель при первом нажатии

@delete1991 · 06.02.2011, 01:49 **[ТС]**

Сообщение от LK

вы удаляете не "физический" объект на форме !!! - а указатель в памяти !!!
Правильно, потому что вы уже удалили указатель при первом нажатии

а как тогда сделать так, чтобы я мог при нажатии удалять последне созданный объект, и без ошибки, т.е нажал - удалил, еще раз нажал, удалил еще объект и т.д..

cpp_developer · 06.02.2011, 01:58

если будете использовать тег для кода : [ CPP][ /CPP] (без пробелов) - тогда скажу

@kzru_hunter · 06.02.2011, 01:59

у меня в проге вот так реализовано:
edit->Free();

@delete1991 · 06.02.2011, 02:00 **[ТС]**

Сообщение от LK

если будете использовать тег для кода : [ CPP][ /CPP] (без пробелов) - тогда скажу

C++
1
эээ, вы эт имели введу?

cpp_developer · 06.02.2011, 02:14

ага

, теперь подождите

Добавлено через 1 минуту
edit->Free(); - это наследие паскаля - к употреблению крайне не рекомендуется - используйте delete .

Добавлено через 11 минут
как-то так

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
.H
private:  // User declarations
  TComponentList *DEditList; // список дин. эдитов
//
.CPP
void __fastcall TForm1::FormCreate(TObject *Sender)
{
// TComponentList;
  DEditList = new TComponentList; // создаем список
  DEditList->OwnsObjects = true;
...  
//
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (i_e<=6) { //дин.создание edit (ограничение 6 дин.созданных edit)
top_edit+=30;
height_group+=30;
GroupBox1->Height=height_group;
edit=new TEdit(GroupBox1);
DEditList->Add(edit); // Добавляем в список
...
//
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (DEditList->Count == 0) {
    ShowMessage("Поля ввода отсутствуют");
  }
  else {
    DEditList->Delete(DEditList->Count); // удаление последнего эдита
    // (или порядковый_номер_вашего_edit_начиная_с_нуля);
  }
{
// удалить конкретный эдит -
// ставите на форму эдит с палитры компонентов - 
// не динамически созданный !
  int number = StrToInt(Edit145->Text);
  if (DEditList->Count == 0) {
    ShowMessage("Поля ввода отсутствуют");
  }
  else {
    DEditList->Delete(number); // удаление эдита с номером number
  }

@delete1991 · 06.02.2011, 02:24 **[ТС]**

Сообщение от LK

ага

, теперь подождите

Добавлено через 1 минуту
edit->Free(); - это наследие паскаля - к употреблению крайне не рекомендуется - используйте delete .

Добавлено через 11 минут
как-то так

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
.H
private:  // User declarations
  TComponentList *DEditList; // список дин. эдитов
//
.CPP
void __fastcall TForm1::FormCreate(TObject *Sender)
{
// TComponentList;
  DEditList = new TComponentList; // создаем список
  DEditList->OwnsObjects = true;
...  
//
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (i_e<=6) { //дин.создание edit (ограничение 6 дин.созданных edit)
top_edit+=30;
height_group+=30;
GroupBox1->Height=height_group;
edit=new TEdit(GroupBox1);
DEditList->Add(edit); // Добавляем в список
...
//
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (DEditList->Count == 0) {
    ShowMessage("Поля ввода отсутствуют");
  }
  else {
    DEditList->Delete(DEditList->Count); // удаление последнего эдита
    // (или порядковый_номер_вашего_edit_начиная_с_нуля);
  }
{
// удалить конкретный эдит -
// ставите на форму эдит с палитры компонентов - 
// не динамически созданный !
  int number = StrToInt(Edit145->Text);
  if (DEditList->Count == 0) {
    ShowMessage("Поля ввода отсутствуют");
  }
  else {
    DEditList->Delete(number); // удаление эдита с номером number
  }

спасибо) буду пробывать)

cpp_developer · 06.02.2011, 07:32

Да, и не забудьте, например, в OnFormDestroy, освободить память :

C++
1
2
3
4
5
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  delete DEditList; // освобождаете память
  DEditList = NULL; // обнуляете укзатель, не объязательно, но хороший тон 
}

@delete1991 · 06.02.2011, 16:48 **[ТС]**

Теперь снова ошибка. Пусть я создал два едита, и тогда выдает ошибка List index out of bounds (2)
Они в список добавляются, но почему не удаляются?
Вот код как я сделал, т.е дописал ваш код:
Добавление в список

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
if (i_e<=6) { //дин.создание edit (ограничение 6 дин.созданных edit)
        top_edit+=30;
        height_group+=30;
        GroupBox1->Height=height_group;
        edit=new TEdit(this);
        DEditList->Add(edit); //добавляем в список
        edit->Parent=GroupBox1;
        edit->Name="Edit"+AnsiString(i);
        edit->Text="";
        edit->Width=337;
        edit->Height=27;
        edit->Left=8;
        edit->Top=top_edit;
        i++;
        i_e++;
        }
        else ShowMessage("Превышен лимит создаваемых полей ввода");
}

Удаление

C++
1
2
3
4
5
6
7
8
9
10
if (DEditList->Count==0) ShowMessage("Добавленные поля ввода отсутствуют");
else {
        DEditList->Delete(DEditList->Count);
        top_edit-=30;
        height_group-=30;
        GroupBox1->Height=height_group;
        i--;
        i_e--;
        }
}

и где объявлял

C++
1
2
3
4
5
6
7
8
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TComponentList *DEditList; //список дин. едитов

как же все таки будет правильно сделать чтобы удалялись элементы))) помогите кто-нить)

@kzru_hunter · 06.02.2011, 17:43

delete1991, не парься и используй метод Free, у меня он безотказно работает.
Вот как в моей программе всё реализовано, никаких проблем при этом не было за многократное использование:
1) Объявление:

C++
1
TEdit *gEdit[21];

2) Создание:

C++
1
gEdit[i] = new TEdit(this);

или если не сработает, то

C++
1
gEdit[i] = new TEdit(Form1->Handle);

3) Удаление:

C++
1
gEdit[i]->Free();

@delete1991 · 06.02.2011, 20:33 **[ТС]**

все равно идет ошибка. Он теперь удаляет объекты, по очереди, ну если я удалил хоть один объект, он при создании другого выдает ошибку. В чем проблема.
Можеш кинуть свой код

cpp_developer · 06.02.2011, 22:13

C++
1
DEditList->Delete(DEditList->Count-1);

Добавлено через 3 минуты

Сообщение от delete1991

все равно идет ошибка. Он теперь удаляет объекты, по очереди, ну если я удалил хоть один объект, он при создании другого выдает ошибку. В чем проблема.
Можеш кинуть свой код

- потому что ты уже удалил указатель, создавай снова

C++
1
gEdit[i] = new TEdit(this);

, и делать надо правильно, а не лишь бы работало.

@delete1991 · 06.02.2011, 22:33 **[ТС]**

эт да, нужно делать правильно вполне согласен. Но я ток начинаю изучать С++ Builder, и еще во многом не разбераюсь(((
Спасибо, теперь работает)

cpp_developer · 06.02.2011, 22:50

какой вариант работает ?

@delete1991 · 07.02.2011, 00:33 **[ТС]**

я попробывал этот:

C++
1
DEditList->Delete(DEditList->Count-1);

cpp_developer · 07.02.2011, 00:55

ага, я так и думал

Вот, прикинь

1. Нумерация в списках начинается с 0.
2. Предположим - у нас в списке - Count = 6 строк - с номерами 0,1,2,3,4,5.
3. Тогда порядковый номер 6-й строки будет: 6-1=5 , для это и нужно Count-1

.
Задачка по арифметике для ученика 1-го класса, а не программиста

.

@delete1991 · 07.02.2011, 01:01 **[ТС]**

Я понял что где-то лишняя 1, но не понял где..
ну ты же мне сам сначала написал без -1

C++
1
DEditList->Delete(DEditList->Count);

а потом уже дописал

C++
1
DEditList->Delete(DEditList->Count-1)

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	06.02.2011, 01:58
	если будете использовать тег для кода : [ CPP][ /CPP] (без пробелов) - тогда скажу 0

@kzru_hunter 1124 / 795 / 101 Регистрация: 01.02.2011 Сообщений: 1,887 Записей в блоге: 1
	06.02.2011, 01:59
	у меня в проге вот так реализовано: edit->Free(); 0

@delete1991 2 / 2 / 0 Регистрация: 05.02.2011 Сообщений: 82
	06.02.2011, 20:33 [ТС]
	все равно идет ошибка. Он теперь удаляет объекты, по очереди, ну если я удалил хоть один объект, он при создании другого выдает ошибку. В чем проблема. Можеш кинуть свой код 0

@delete1991 2 / 2 / 0 Регистрация: 05.02.2011 Сообщений: 82
	06.02.2011, 22:33 [ТС]
	эт да, нужно делать правильно вполне согласен. Но я ток начинаю изучать С++ Builder, и еще во многом не разбераюсь((( Спасибо, теперь работает) 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	06.02.2011, 22:50
	какой вариант работает ? 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	07.02.2011, 00:55
	ага, я так и думал Вот, прикинь 1. Нумерация в списках начинается с 0. 2. Предположим - у нас в списке - Count = 6 строк - с номерами 0,1,2,3,4,5. 3. Тогда порядковый номер 6-й строки будет: 6-1=5 , для это и нужно Count-1 . Задачка по арифметике для ученика 1-го класса, а не программиста . 0