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

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

Форум программистов > C++ Builder > Ошибка при удалении динамической кнопки

Автор: RDC 8.6.2008, 21:31

Вылетает ошибка Access violation at address 00440D4E in .....
Подозреваю что проблема в динамических кнопках. Вот код

Код


void ButShow(int n, bool q) {
                static TButton **p = NULL;
                static int PrevCount = 0;
                if(p) {
                        for(int i = 0; i < PrevCount; ++i)
                                delete p[i];
                        delete []p;
                        p = NULL;
                }
                if(n == 0)
                        return;
                p = new TButton *[n];
                PrevCount = n;
                for(int i=0; i<n; i++) {
                        p[i] = new TButton(Panel1->Owner);
                        p[i]->Parent = Panel1;
                        p[i]->Top = 8;
                        p[i]->Left=(i*80)+8;
                        p[i]->Caption="Variant "+IntToStr(i+1);
                        p[i]->OnClick=NewClick;
                        p[i]->Tag=i;
                        p[i]->Visible=q;
                }
        }

Автор: 586 9.6.2008, 08:17

Цитата(RDC @ 8.6.2008, 22:31

)

Access violation at address 00440D4E in .....

В какой строчке? Приведи полное сообщение об ошибке.

Автор: RDC 9.6.2008, 08:45

Project Project2.exe raised exception class EAccessViolation with message 'Access violation at address 00440D36 in module 'Project2.exe'. Read of address FFFFFFEE'. Process stopped. Use Step or Run to continue.

И указывает на строчку 10... почему то.

Код


WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->Title = "Client";
                 Application->CreateForm(__classid(TfrmClient), &frmClient);
                 Application->CreateForm(__classid(TfrmSettings), &frmSettings);
                 Application->Run();
        }
        catch (Exception &exception)
        {

Автор: ama_kid 9.6.2008, 08:51

RDC, показывай код, где вызывается ButShow. И еще непонятно - как у тебя из обычной функции (ButShow) видно Panel1...

Автор: 586 9.6.2008, 10:47

Цитата(ama_kid @ 9.6.2008, 09:51

)

И еще непонятно - как у тебя из обычной функции (ButShow) видно Panel1...

В прототипе класса. smile

Цитата(RDC @ 8.6.2008, 22:31

)

void ButShow(int n, bool q) {

Бессмысленный параметр. Если вызвать ButShow(0) все кнопки будут уничтожены.
У меня функция нормально работает. Когда возникает ошибка?

Автор: Aline 9.6.2008, 12:33

Подключи CodeGuard и пройдись отладчиком. CodeGuard дает больше информации при таких ошибках

Автор: RDC 9.6.2008, 19:10

Вот код где вызывается ShowBut

Код


void QuestNext(int Next)
{
        AnsiString q;
        if (i==MaxQuest+1) {
                frmClient->ButShow(0);
                AnsiString End=ExtractFilePath(Application->ExeName);
                End=End + "end.html";
                frmClient->CppWebBrowser1->Navigate(End.WideChar(NameQue,100),0,NULL,NULL,NULL);
        } else {
                q=TestDir + IntToStr(Next) + ".html";
                TrueAnswer=XOR_Crypt(ReturnCode(LastS(q)),"TESTPASS");
                frmClient->ButShow(StrToInt(TrueAnswer[5]));
                frmClient->CppWebBrowser1->Navigate(q.WideChar(NameQue,100),0,NULL,NULL,NULL);
                i++;
        }
}

Добавлено через 5 минут и 6 секунд
Ещё бывает в том же месте выскакивает ошибка Abstract Error.

Автор: ama_kid 9.6.2008, 19:23

Цитата(RDC @ 9.6.2008, 19:10

)

Вот код где вызывается ShowBut

Хм... А где вызывается QuestNext? Случаем не в OnCreate формы? Есть подозрение, что панель к тому моменту еще не создана, чтобы обращаться к её свойству Owner...

Автор: RDC 9.6.2008, 21:05

Цитата(ama_kid @ 9.6.2008, 19:23

)

Хм... А где вызывается QuestNext? Случаем не в OnCreate формы? Есть подозрение, что панель к тому моменту еще не создана, чтобы обращаться к её свойству Owner...

Нет не в OnCreate. По кнопочке вызывается.

Автор: RDC 9.6.2008, 22:34

Вот в этом коде поставил 5 строку в конец if и ошибка исчезла. Но теперь то редко появляется Abstract Error... Мучаю компилятор.

Код


void QuestNext(int Next)
{
        AnsiString q;
        if (i==MaxQuest+1) {
                frmClient->ButShow(0);
                AnsiString End=ExtractFilePath(Application->ExeName);
                End=End + "end.html";
                frmClient->CppWebBrowser1->Navigate(End.WideChar(NameQue,100),0,NULL,NULL,NULL);
        } else {
                q=TestDir + IntToStr(Next) + ".html";
                TrueAnswer=XOR_Crypt(ReturnCode(LastS(q)),"TESTPASS");
                frmClient->ButShow(StrToInt(TrueAnswer[5]));
                frmClient->CppWebBrowser1->Navigate(q.WideChar(NameQue,100),0,NULL,NULL,NULL);
                i++;
        }
}

Автор: RDC 10.6.2008, 01:47

Ошибка Abstract Error изредка появляется, заметил, когда большее кол-во кнопок меняется на меньшее (например было 5 кнопок, они стираются и выводится три кнопки). В принципе тема закрыта, всем спасибо.

Автор: RDC 11.6.2008, 11:46

Сегодня общался со своим предадом. Он сказал следующее:
1. 6 сроку надо заменить на p[i]->Free();
2. Что она никогда не выполниться!!!

Код


void ButShow(int n, bool q) {
                static TButton **p = NULL;
                static int PrevCount = 0;
                if(p) {
                        for(int i = 0; i < PrevCount; ++i)
                                delete p[i];
                        delete []p;
                        p = NULL;
                }
                if(n == 0)
                        return;
                p = new TButton *[n];
                PrevCount = n;
                for(int i=0; i<n; i++) {
                        p[i] = new TButton(Panel1->Owner);
                        p[i]->Parent = Panel1;
                        p[i]->Top = 8;
                        p[i]->Left=(i*80)+8;
                        p[i]->Caption="Variant "+IntToStr(i+1);
                        p[i]->OnClick=NewClick;
                        p[i]->Tag=i;
                        p[i]->Visible=q;
                }
        }

Добавлено через 21 секунду
А что такое delete []p; он ваще не знает. Кто объяснит?

Автор: HappyLife 11.6.2008, 11:53

RDC, Ошибка случаем возникает не при закрывании формы?
Все просто. Если ты даешь родителя объекту, Родитель сам заботится об удалении, а ошибка может возникать из-за двойного удаления обекта. Так что ты либо, создавай кноку так

Код

new TButton(0);

любо не удаляй.

Автор: 586 11.6.2008, 12:29

Цитата(RDC @ 11.6.2008, 12:46

)

1. 6 сроку надо заменить на p[i]->Free();

Можно.

Цитата(RDC @ 11.6.2008, 12:46

)

2. Что она никогда не выполниться!!!

В отладчике Break Point срабатывает. Кто прав? Отладчик или препод? smile

Цитата(RDC @ 11.6.2008, 12:46

)

А что такое delete []p; он ваще не знает. Кто объяснит?

Освобождение массива указателей.
У меня код нормально работает. Вызываю несколько раз следующий код:

Код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    ButShow(rand()%9+1);
}

Нигде ошибка не появляется.

Добавлено через 4 минуты и 32 секунды
У тебя какой билдер? Я на 6 тестировал.

Автор: 586 11.6.2008, 13:27

При создании нескольких экземпляров формы они будут конфликтовать из-за статических переменных. Переделал.

Код

class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button1;
    TPanel *Panel1;
    void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:        // User declarations
    __fastcall TForm1(TComponent* Owner);
    void ButShow(UINT n);

    std::vector<TButton*> Buttons;
};


__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    srand(GetTickCount());
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    ButShow(rand()%10);
}

void TForm1::ButShow(UINT n)
{
    if(Buttons.size() < n) {
        for(UINT i = Buttons.size(); i < n; ++i) {
            TButton *b = new TButton(Panel1->Owner);
            b->Parent = Panel1;
            b->Top = 8;
            b->Left=(i*80)+8;
            b->Caption="Variant "+IntToStr(i+1);
            //b->OnClick=NewClick;
            b->Tag=i;
            Buttons.push_back(b);
        }
    } else {
        for(UINT i = Buttons.size(); i > n; --i)
        {
            Buttons.back()->Free();
            Buttons.pop_back();
        }
    }
}

Автор: RDC 12.6.2008, 00:51

Цитата(586 @ 11.6.2008, 12:29

)

В отладчике Break Point срабатывает. Кто прав? Отладчик или препод? smile

Препод вегда прав. Это даже не обсуждается )

Билдер тоже 6. Щас буду тестировать передел. Спасибо огромное.