Передача данных в форму при загрузке приложения

@Dima_control · Регистрация: 28.06.2019

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

У меня есть главная форма MainForm и форма журнала JouLogForm.

В главной форме у меня есть функция в которой вызывается функция записи в журнал события

C++
1
2
3
4
5
__fastcall TMainForm::TMainForm(TComponent* Owner)
        : TForm(Owner)
{
JPS(1,"Попытка подключения к интерфейсу \"Телеоператор\" БУМ-МС","","","");
}

которая посылает в форму журнала строку.

Сама функция логирования выглядит следующим образом

Кликните здесь для просмотра всего текста

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
void JPS(int tm, AnsiString Inst,AnsiString Pol,AnsiString Cmd,AnsiString zn){
// Что бы ровно отображался номер
AnsiString zero;
if (JouLogForm->JouLB->Count<10){   //
zero = "000"; } else
if (JouLogForm->JouLB->Count<100){
zero = "00"; } else
if (JouLogForm->JouLB->Count<1000){
zero = "0"; } else
zero = "";
      JouLogForm->JouLB->Items->AddObject(zero+   // Нули перед номером
                      JouLogForm->JouLB->Count+   // Номер
  "  ["+Now().FormatString("hh.mm.ss.zzz")+"]"+   // Local Time (PC)
                                          "  "+   // Разделитель между Lt и Ot
                              "[00:00:00.000]"+   // Onboard (model) time from BUM приходит от МКС
                                         "   "+   // Разделитель между Ot и Inst
                                          Inst+   // Источник команды
 
                                           Pol+   // Получатель команды (пункт назначения)
                                        // "   "+   // Разделитель между Pol и Cmd
                                           Cmd+   // Наименование (расшифровка) команды, ее описание или краткое наименование
                                         //"   "+   // Разделитель между Cmd и zn
                                            zn    // Значение команды (булево, integer, double)
                             ,   (TObject*)tm);   // tm - Подсветка команды
JouLogForm->JouLB->Perform(WM_VSCROLL,
                SB_LINEDOWN,0);                   // Что бы всегда была перемотка вниз
}

Проблема в следующем - при запуске приложения компилятор выдает следующую ошибку которая показывает на первый if в функции JPS

Передача данных в форму при загрузке приложения

@D1973 · 30.01.2020, 13:12

Ну здорово... Что за объект такой - JouLogFor? Где для него выделяется память, что Вы так смело к нему обращаетесь?

@Dima_control · 30.01.2020, 13:24 **[ТС]**

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

JouLogFor

Это форма, на ней ListBox в который приходят сообщения с обработчиков и т.д.
По поводу памяти не знаю...

@volvo · 30.01.2020, 13:34

Форма JouLogFor еще не создана на момент обращения к ней. Вот и ошибка.

@D1973 · 30.01.2020, 13:40

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

Это форма

Ваша TMainForm - тоже форма и, судя по названию, это главная форма проекта. Я прав? Если да - тогда у Вас все плохо и неправильно: Вы при создании главной формы вызываете функцию, которая обращается к дополнительной форме. Мало того, что обращение к классу формы из внешней функции - это нарушение одного из основных постулатов ООП - инкапсуляции - так Вы еще и обращаетесь к форме, которая еще не создана, ее в принципе нет! К кому же Вы обращаетесь? Никто, в том числе и Ваша программа не знает этого - вот Вам и AV...

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

По поводу памяти не знаю

Ваш проект-то, кто же знать-то должен лучше Вас?

@Dima_control · 30.01.2020, 15:00 **[ТС]**

Тогда попробую все эти функции записать в тик таймера а по созданию формы этот таймер активировать.

Добавлено через 37 минут
А какие есть тогда варианты решения данной проблемы? Просто я сделал отдельный хедер, в котором сделал функцию обращения к форме журнала для того, что бы другие формы могли к нему обращаться. Если не считать обращения при запуске, то все работает, но мне просто надо автоматизировать многие процессы что бы по запуску они выполнялись автоматом, а квитанции о исполнении или аварийном останове передавались бы в журнал.

@Dima_control · 30.01.2020, 21:27 **[ТС]**

Заработало в итоге, когда я записал все эти функции в OnShow главной формы

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. 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 считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

@D1973 Модератор 9908 / 6445 / 2455 Регистрация: 21.01.2014 Сообщений: 27,363 Записей в блоге: 3
	30.01.2020, 13:12
	Ну здорово... Что за объект такой - JouLogFor? Где для него выделяется память, что Вы так смело к нему обращаетесь? 0

@volvo Супер-модератор 33371 / 21497 / 8234 Регистрация: 22.10.2011 Сообщений: 36,893 Записей в блоге: 12
	30.01.2020, 13:34
	Форма JouLogFor еще не создана на момент обращения к ней. Вот и ошибка. 0

@Dima_control 2 / 2 / 0 Регистрация: 28.06.2019 Сообщений: 129 Записей в блоге: 3
	30.01.2020, 15:00 [ТС]
	Тогда попробую все эти функции записать в тик таймера а по созданию формы этот таймер активировать. Добавлено через 37 минут А какие есть тогда варианты решения данной проблемы? Просто я сделал отдельный хедер, в котором сделал функцию обращения к форме журнала для того, что бы другие формы могли к нему обращаться. Если не считать обращения при запуске, то все работает, но мне просто надо автоматизировать многие процессы что бы по запуску они выполнялись автоматом, а квитанции о исполнении или аварийном останове передавались бы в журнал. 0

@Dima_control 2 / 2 / 0 Регистрация: 28.06.2019 Сообщений: 129 Записей в блоге: 3
	30.01.2020, 21:27 [ТС]
	Заработало в итоге, когда я записал все эти функции в OnShow главной формы 0