Сохранение созданного объекта в TList

@frolandr · Регистрация: 18.03.2014

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

Есть такой рабочий код на Делфи:

Delphi
1
CONST CVList : TList = NIL;

Далее в другом юните создается объект CV, проверяется

Delphi
1
2
3
4
if not Assigned(CVList) then          
    CVList := TList.Create;        
    
CVList.Add(TObject(CV));

Попытался переписать на с++builder:

C++
1
const TList *CVList = NULL;

Создаю объект CV, далее хочу записать его в TList

C++
1
2
3
4
if (CVList == NULL)                                  
    TList *CVList = new TList();                                
 
CVList->Add((TObject*)(CV));

Почему то не работает?
Пожалуйста поясните в чем ошибка?

@D1973 · 02.02.2026, 16:20

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

Почему то не работает?

Ошибку показывает? Прочитайте, что за ошибка - будет понятно... Наверное...

@frolandr · 02.02.2026, 16:37 **[ТС]**

Cпасибо, нет ошибку не показывает. Понимаю что не работает, так как список все еще NULL, т.е. повторяется:

C++
1
2
if (CVList == NULL)                                  
    TList *CVList = new TList();

@volvo · 02.02.2026, 17:26

frolandr, на фига там const?

В Дельфи - понятно, это переменная с начальным значением (хотя можно было бы записать и через Var, скорее всего код тянется еще с Турбо-Паскаля). а вот в C++ это нечто другое.

@frolandr · 02.02.2026, 17:35 **[ТС]**

Спасибо, const убирал, все равно не работает.
Если сразу создать:

C++
1
TList *CVList = new TList();

то, все работает.

Verevkin · 02.02.2026, 17:40

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

Если сразу создать

Ты там не путаешь глобальную переменную с локальной, а?
Мож вот так надо?

C++
1
2
if (!CVList) CVList = new TList();                                
CVList->Add((TObject*)(CV));

@frolandr · 02.02.2026, 17:50 **[ТС]**

Verevkin, ТОЧНО, путаю! Спасибо!!!

Verevkin · 02.02.2026, 17:55

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

ТОЧНО, путаю! Спасибо!!!

Избавься от глобальной переменной.

@frolandr · 02.02.2026, 18:06 **[ТС]**

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

Избавься от глобальной переменной.

А как от нее избавиться мне этот список нужен в нескольких разных юнитах?

Verevkin · 02.02.2026, 18:14

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

А как от нее избавиться мне этот список нужен в нескольких разных юнитах?

Хрен его знает. Я в С++ не копенгаген.

@frolandr · 02.02.2026, 18:19 **[ТС]**

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

Хрен его знает.

Хмм, возможно...

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

Я в С++ не копенгаген.

Не прибедняйся

Спасибо, еще раз!

Verevkin · 02.02.2026, 18:34

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

Не прибедняйся

Я не шучу.
В моих программах есть глобальные объекты. Они все сконцентрированы в одном главном DataModule, который отвечает за жизнь и смерть этих объектов, а также за загрузку и сохранение их свойств (настроек) в XML. Этот DataModule виден везде и создаётся первым (до главной формы) и создаёт все глобальные объекты и инициализирует их. По выходу сохраняет настройки.

@frolandr · 02.02.2026, 18:42 **[ТС]**

Понятно.

Я DLL пишу она запускается программой, а при выгрузке программа посылает сообщения, одно из которых:

C++
1
2
3
4
5
6
7
8
9
case PUBMESSAGE_EXIT:                                                 //выходим из режима запуска, поэтому чистим и удаляем список
if (CVList) {
   for (int i = 0; i < CVList->Count; i++)
      CVList->Delete(i);                               
 
   delete CVList;                                             
   CVList = NULL;                                              
}
break;

Т.е. как бы должно все удалиться.

Verevkin · 02.02.2026, 18:49

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

C++
1
2
for (int i = 0; i < CVList->Count; i++)
 CVList->Delete(i);

У списков есть метод Clear().
А если надо удалить привязанные к списку объекты, то лучше юзать не TList, а TObjectList.

@volvo · 02.02.2026, 18:53

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

Т.е. как бы должно все удалиться

Только как бы. Удалится через один элемент, чтобы удалилось все - либо Clear(), либо разверни цикл от конца списка к началу.

@frolandr · 02.02.2026, 19:12 **[ТС]**

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

У списков есть метод Clear().

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

Удалится через один элемент, чтобы удалилось все - либо Clear()

Спасибо, понял.

Verevkin, TObjectList
Первоначально и был TObjectList, вчера дали код с Делфи и сказали чтобы писал TList.

Verevkin · 02.02.2026, 19:25

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

сказали чтобы писал TList.

А ты спросил "зачем?"?

@Dinkin · 02.02.2026, 19:41

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

if not Assigned(CVList)

и че так в делфи прям проверяет указатель, так просто? и ни каких бубнов?)

Verevkin · 02.02.2026, 19:44

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

и че так в делфи прям проверяет указатель, так просто? и ни каких бубнов?)

Это проверка на равенство/неравенство нулю. Какие тебе ещё бубны надо?

@Dinkin · 02.02.2026, 19:46

У меня мечта была, найти просто способ, проверять на активен ли еще указатель)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@volvo Супер-модератор 33378 / 21502 / 8236 Регистрация: 22.10.2011 Сообщений: 36,899 Записей в блоге: 11
	02.02.2026, 17:26
	frolandr, на фига там const? В Дельфи - понятно, это переменная с начальным значением (хотя можно было бы записать и через Var, скорее всего код тянется еще с Турбо-Паскаля). а вот в C++ это нечто другое. 0

@frolandr 0 / 0 / 0 Регистрация: 18.03.2014 Сообщений: 79
	02.02.2026, 17:50 [ТС]
	Verevkin, ТОЧНО, путаю! Спасибо!!! 0

@Dinkin 783 / 556 / 136 Регистрация: 31.05.2013 Сообщений: 3,150 Записей в блоге: 3
	02.02.2026, 19:46
	У меня мечта была, найти просто способ, проверять на активен ли еще указатель) 0

Сохранение созданного объекта в TList

Решение