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

[Вадим Буренков]

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

[Daramant]

Я так понимаю есть переменная - ссылка на объект.
При инициализации присвойте ей nil.
При создании объекта она примет некоторое значение (адрес) не nil.
После уничтожения объекта присвойте ей снова nil.
В итоге: если nil- объекта нет, иначе есть.

P.S. Возможно, я неверно вас понял. Можете уточнить.
И создан не класс, а объект.

[Evgeniy26]

Assigned

[Вадим Буренков]

У меня в игре есть класс TShip и переменные класса Ship

Ship: array [0..100] of TShip;

Я создаю переменные в OnCreate собственным конструктором

Ship[0]:=TShip.CreateFromINI('PlayerShip.ini');

, в таймере они обрабатывается

for n:=0 to 100 do Ship[n].Processing;

а в OnClose очищаются:

for n:=0 to 100 do Ship[n].Free;

Но проблема в том что какое количество кораблей создастся заранее неизвестно(определяется текстовым файлом). Например в OnCreate создастся 15 кораблей, а в таймере будет попытка обработать 100, что вызовет ошибку. Если бы я знал какие переменные класса созданы, то я бы только их и обрабатывал:

for n:=0 to 100 do if Ship[n].(был создан)=true then Ship[n].Processing;

Эту проблему можно было бы обойти, но создабтся переменные не по порядку (Ship[0],Ship[1],Ship[2]), а случайным образом (Ship[14],Ship[67],Ship[5]).

Assigned

Что-то не понял как использовать. Можешь привести пример на классах?

[Evgeniy26]

for n:=0 to 100 do 
  if  Assigned(Ship[n]) then 
    Ship[n].Processing;

[Daramant]

Assigned и проверяет значение переменной на nil.
Это тоже самое, о чем я писал во 2-ом посте.
Аналогично:

for n:=0 to 100 do 
  if  Ship[n] <> nil then 
    Ship[n].Processing;

[Вадим Буренков]

Как ни странно я тоже так подумал, но ошибка осталась?!
Тогда я изменил с True на False:
for n:=0 to 100 do
if Assigned(Ship[n])=false then
Ship[n].Processing;
Теперь все работает.

[BOBAH13]

какой ужас... а не пришло ли к вам в голову, что просто сделать динамический массив, или вообще, использовать TList - что есть корректный метод, для хранения списка ваших классов ?
TList даст вам и кол-во элементов, и редактирование, типа удалить, переместить и т.п... а вообще сделать класс на основе TList, который бы интерпритировал каждый элемент как

property Items[Index: Integer]: TShip read GetItem; default;

ну и остальные всякие Add, Delete, Clear и Count, а так же для ваших нужд, типа Porcessing или как там. Тогда и код основного модуля чище, и все более организованней, а вот

if Assigned(Ship[n])=false then 
Ship[n].Processing;

Полная ерунда. Честное слово. Без обид.

[Квэнди]

if Assigned(Ship[n])=false then 
Ship[n].Processing;

Этот код обязан приводить к AV

[Вадим Буренков]

Значит у меня Delphi заглючил. Когда я перезапустил проэкт то работать стало только в как в примере Daramant'a.

какой ужас... а не пришло ли к вам в голову, что просто сделать динамический массив, или вообще, использовать TList - что есть корректный метод, для хранения списка ваших классов ?

Я никогда им не пользовался и не знаю как.Какие он имеет преимущества? И зачем мне его использовать если у меня и так все работает?