TObject + TObjectList + Assigned

← →
SIV5000 (2011-04-29 21:36) [0]

Народ привет. Подскажите пожалуйста как проверить не освобожден ли TObject. Например:

Есть MyList:TObjectList; Добавляю в него

TMyObj = class (TObject)
fName :String;
End;

Есть переменная var Object1

Присваиваю:
Object1:= MyList.Items[0];

Потом удаляю MyList.Delete(0);

А вот теперь, если хочу обратиться к Object1.fName то выдает ошибку.
is Assigned(MyObj) в таком случае не работает. Вот если сделать Object1:= nil; тогда is Assigned(MyObj) равно False;

Есть ли какие то другие способы?

← →
Юрий Зотов © (2011-04-29 22:00) [1]

Если ObjectList создавался с параметром TRUE, то после Delete объект точно уничтожен, можно даже и не проверять.

А если ObjectList создавался с параметром FALSE, то после Delete объект точно НЕ уничтожен, тоже можно не проверять.

← →
Юрий Зотов © (2011-04-29 22:02) [2]

Если, конечно, после создания ObjectList у него не менялось OwnsObjects.

← →
Германн © (2011-04-30 02:36) [3]

> SIV5000 (29.04.11 21:36)
>
> Народ привет. Подскажите пожалуйста как проверить не освобожден
> ли TObject

Никак проверить сей факт не возможно!
P.S. Странно, что ЮЗ не привёл свой пример о "телефонной книге".

← →
SIV5000 (2011-04-30 11:07) [4]

> Никак проверить сей факт не возможно!

Точно никак?

← →
_Юрий (2011-04-30 11:52) [5]

> Assigned(MyObj) в таком случае не работает.

Assigned просто проверяет на nil.
И все, больше ничего не делает.
При разрушении же указатели не обниливаются.

> Точно никак?
абсолютно!

наглядный пример/практическая демонстрация...
подойди к окну, найди птичку (ну воробьи у вас там водятся?), укажи на нее пальцем...
ну вот, палец это указатель на объект, воробей соответственно объект (абстрактный т.к. ничего не делает).
теперь отвернись от окна, смотри ТОЛЬКО на палец, "МОНИТОРЬ" его состояние... что можешь сказать о птичке? она еще там? или уже улетела/ее съела кошка? подожди несколько минут, а сейчас? есть она там или нет? НЕ СМОТРЕТЬ в окно я сказал!
как только посмотришь это будет обращение к объекту, с соответствующей ошибкой (см. свой же вопрос).

← →
SIV5000 (2011-04-30 16:56) [7]

Ясно, всем спасибо. Прийдеться немного переписать :)

TObject + TObjectList + Assigned Найти похожие ветки