Ошибка при добавлении TSeries: Access Violation

@goodle · Регистрация: 22.07.2012

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

Здравствуйте, помогите разобраться с ошибкой:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::MyEvent(TObject *Sender)
{
    TIniFile *ini=new TIniFile("C:\\test.ini");
    int dim=Edit3->Text.ToInt();
    TChartSeries *LineSeries = new TFastLineSeries((TChart*)Sender);
 
    for (int i = 0; i < dim; i++) {
        float qwe=ini->ReadFloat(tt,i,0) ;
        LineSeries->Add(qwe,i,clRed);
    }
    ((TChart*)Sender)->AddSeries(LineSeries);
    delete ini;
 
 
}

При исполнении возникает ошибка access violation на строчке

C++
1
    ((TChart*)Sender)->AddSeries(LineSeries);

Код должен подгружать из ini-файла определенную серию данных и отображать их на графике. Я задаю в Edit номер серии, нажимаю кнопку и должен появляться график, но возникает ошибка. Все элементы (форма, эдит, кнопка, график) созданы динамически.

Добавлено через 18 минут
Я так понимаю, ошибка в том, что Sender'ом является Tbutton, но вот как она является компонентом TForm, на которой расположен TChart, на который и нужно добавить TSeries

а как это сделать?

@Avazart · 04.08.2012, 19:18

Visual Component Library: Вид изнутри, удаление и установка компонентов

@goodle · 04.08.2012, 19:49 **[ТС]**

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

Visual Component Library: Вид изнутри, удаление и установка компонентов

Не могу понять как мне применить эти знания

@Avazart · 04.08.2012, 19:52

Из вашего кода ничего не понятно что и как...

К примеру что такое MyEvent ?

@goodle · 04.08.2012, 20:39 **[ТС]**

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

Из вашего кода ничего не понятно что и как...

К примеру что такое MyEvent ?

Это созданный обработчик события.

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
43
44
45
46
47
48
49
50
51
52
void __fastcall TForm1::Button7Click(TObject *Sender)
{
    TForm *Form2= new TForm(Form1);
    Form2->Width=600;
    Form2->Height=600;
    TChart *Chart5=new TChart(Form2);
    Chart5->Width=600;
    Chart5->Parent=Form2;
    Chart5->View3D=false;
    Chart5->SeriesList->Clear();
    Chart5->Height=300;
    TButton *Button1=new TButton(Form2);
    Button1->Parent=Form2;
    Button1->Left=50;
    Button1->Top=350;
    Button1->Caption="Принять";
    Button1->OnClick=MyEvent;
    TEdit *MyEdit=new TEdit(Form2);
    MyEdit->Parent=Form2;
    MyEdit->Left=50;
    MyEdit->Top=390;
    MyEdit->OnChange=MyEvent1;
    Form2->ShowModal();
}
void __fastcall TForm1::MyEvent1(TObject *Sender)
{
    tt=((TEdit*)Sender)->Text.ToInt();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MyEvent(TObject *Sender)
{
    TIniFile *ini=new TIniFile("C:\\test.ini");
    int dim=Edit3->Text.ToInt();
    TChartSeries *LineSeries = new TFastLineSeries((TChart*)Sender);
    String classname=Sender->ClassName();
    for (int i = 0; i < dim; i++) {
        float qwe=ini->ReadFloat(tt,i,0) ;
        LineSeries->Add(qwe,i,clRed);
    }
    ((TChart*)Sender)->AddSeries(LineSeries);
 
    for (int i = 0; i < dim; i++)
    {
        for (int j=0; j < ubound; j++)
        {
        //ini->WriteFloat(j,i,w[j][i]);
        }
    }
    delete ini;
 
 
}

Вот полный код. При нажатии динамически созданной кнопки происходит событие MyEvent.
Есть форма, на ней собраны разные элементы, в т.ч. кнопка 7, которая создает форму 2 и ее содержимое (чарт, эдит и кнопку). Задача: изменить эдит, нажать кнопку, получить новый график.

Добавлено через 27 минут
Кажется, я решил проблему. Рецепт скину попозже, когда удостоверюсь.
Avazart, спасибо, что откликнулись.

Добавлено через 9 минут
Следующий код прекрасно работает:

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
43
44
45
46
47
48
TChartSeries *LineSeries;
void __fastcall TForm1::Button7Click(TObject *Sender)
{
    TForm *Form2= new TForm(Form1);
    Form2->Width=600;
    Form2->Height=600;
    TChart *Chart5=new TChart(Form2);
    Chart5->Width=600;
    Chart5->Parent=Form2;
    Chart5->View3D=false;
    Chart5->SeriesList->Clear();
    Chart5->Height=300;
    LineSeries = new TFastLineSeries(Chart5);
    Chart5->AddSeries(LineSeries);
    TButton *Button1=new TButton(Form2);
    Button1->Parent=Form2;
    Button1->Left=50;
    Button1->Top=350;
    Button1->Caption="Принять";
    Button1->OnClick=MyEvent;
    TEdit *MyEdit=new TEdit(Form2);
    MyEdit->Parent=Form2;
    MyEdit->Left=50;
    MyEdit->Top=390;
    MyEdit->OnChange=MyEvent1;
    Form2->ShowModal();
}
void __fastcall TForm1::MyEvent1(TObject *Sender)
{
    tt=((TEdit*)Sender)->Text.ToInt();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MyEvent(TObject *Sender)
{
    TIniFile *ini=new TIniFile("C:\\test.ini");
    int dim=Edit3->Text.ToInt();
    String classname=Sender->ClassName();
    for (int i = 0; i < dim; i++) {
        float qwe=ini->ReadFloat(tt,i,0) ;
        LineSeries->Add(qwe,i,clRed);
    }
 
 
 
    delete ini;
 
 
}

Просто потребовалось объявить TSeries как глобальную переменную. Надеюсь, кому-нибудь пригодится.

@Avazart · 04.08.2012, 20:44

А зачем создавать все динамически?

@goodle · 04.08.2012, 20:48 **[ТС]**

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

А зачем создавать все динамически?

Нет какой-то производственной необходимости, просто мне так удобнее

@Avazart · 04.08.2012, 20:50

И в чем же удобство?
Куча движений куча кода...

@goodle · 04.08.2012, 21:21 **[ТС]**

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

И в чем же удобство?
Куча движений куча кода...

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

@Avazart · 04.08.2012, 21:25

Ну форму,компонент можно тоже скопировать...
И файлы куда проще и надежнее копировать...

@goodle · 04.08.2012, 21:48 **[ТС]**

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

Ну форму,компонент можно тоже скопировать...
И файлы куда проще и надежнее копировать...

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

@Avazart · 04.08.2012, 21:54

Если бы нужна была динамичность я бы сделал так:

1. Создал бы Form2 и кинул бы на нее все компоненты, настроил их (можно визуально можно кодом в конструкторе формы)
2. Убрал бы Form2 с автосоздания в настройках проекта.
3. В Form1, в кнопке создавал бы форму Form2 динамически ( Обьект TForm2 ).

@goodle · 04.08.2012, 21:58 **[ТС]**

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

Если бы нужна была динамичность я бы сделал так:

1. Создал бы Form2 и кинул бы на нее все компоненты, настроил их (можно визуально можно кодом в конструкторе формы)
2. Убрал бы Form2 с автосоздания в настройках проекта.
3. В Form1, в кнопке создавал бы форму Form2 динамически ( Обьект TForm2 ).

Как вариант возможно, буду держать в уме.

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .

@Avazart 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	04.08.2012, 19:18
	Visual Component Library: Вид изнутри, удаление и установка компонентов 0

@Avazart 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	04.08.2012, 19:52
	Из вашего кода ничего не понятно что и как... К примеру что такое MyEvent ? 1

@Avazart 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	04.08.2012, 20:44
	А зачем создавать все динамически? 0

@Avazart 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	04.08.2012, 20:50
	И в чем же удобство? Куча движений куча кода... 0

@Avazart 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	04.08.2012, 21:25
	Ну форму,компонент можно тоже скопировать... И файлы куда проще и надежнее копировать... 0

@Avazart 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	04.08.2012, 21:54
	Если бы нужна была динамичность я бы сделал так: 1. Создал бы Form2 и кинул бы на нее все компоненты, настроил их (можно визуально можно кодом в конструкторе формы) 2. Убрал бы Form2 с автосоздания в настройках проекта. 3. В Form1, в кнопке создавал бы форму Form2 динамически ( Обьект TForm2 ). 0