VPF::помогите устранить ошибку - Форум программистов

Malish

Дата 7.6.2006, 16:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 18.2.2006

Репутация: нет
Всего: нет

Здравствуйте.

помогите устранить ошибку.

При выходе из программы возникает ошибка: Access violation at address 400B4F47 in module 'vsl60.bpl'.
Resd of address FF00000C.

Программа работает с односвязным списком.

Код


//конструктор класса работающего со списком
TMalish::TMalish()
{
L = NULL;  //вспомогательный указатель
L1 = NULL;  //вспомогательный указатель
begin = NULL;   //указатель на первый элемент списка
elem = NULL;    //указатель на элемент
end = NULL;    //указатель на последний элемент списка
N=0;    //количество элементов в списке
}
//---------------------------------------------------------------------------
//диструктор класса, удаление списка
TMalish::~TMalish()
{
L = begin;      //переходим к первому элементу списка
while(L!=NULL) 
{
L1 = L->next;  //записываем в L1 адрес следующего элемента
delete L;   
L = L1;   //переходим к следующему элементу
}
}

//запись элементов в список
void TMalish::Dobavit ()
{
n = Form1->Edit1->Text;  //получаем элемент
if(N==0) //если записываем первый элемент списка
{
L = new ListOne;  //L-вспомогательный указатель
begin = L;             //begin - указатель на первый элемент списка
elem = L;              //указатель на элемент списка.
elem->name = n;    //записываем элемент в список    
elem->next = NULL;   //следующего элемента нет
end=L;   //записанный элемент является последним
N++;
}
else
{
L = new ListOne;  //выделяем память под новый элемент списка
elem = end;         //переходим к последнему элементу
elem->next = L;   //говорим что за последнем элементом следует новый.
elem = L;           
elem->name = n;  //записываем новый элемент
N++;
elem->next = NULL; //за новым элементом нет элементов 
end=L;    //новый элемент стал последним
}
Form1->Edit1->Clear();  //очищаем окно ввода елементов
}


//кнопка выхода из программы
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Malish->~TMalish();
delete Malish;           //очищаем память выделенную под класс работы со списком
Form1->Close();
}

HappyLife

Дата 7.6.2006, 16:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 642
Регистрация: 17.5.2006

Репутация: 4
Всего: 8

Зачем ты вызываешь деструктор?

Malish

Дата 7.6.2006, 16:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 18.2.2006

Репутация: нет
Всего: нет

для того чтобы удолить список. У меня же динамическое выделение памяти.
Хм, а без вызова диструктора работает.

Без вызова диструктора правельно?
у нас диструктор сам вызывается?

Malish

Дата 7.6.2006, 17:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 18.2.2006

Репутация: нет
Всего: нет

Спасибо, разобрался.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »