Как определить действителен ли указатель?
От: defrag  
Дата: 12.09.03 07:58
Оценка:
День добрый, господа коллеги.

Такая у меня проблема...
Динамически создаю объект, допустим форму
Form2:=TForm2.Create(nil)

Затем, при обработке события от кнопки на этой форме я ее уничтожаю методом Free.
TForm2.Button1Click(Sender:TObject)
begin
Free;
end;

Но при этом, указатель Form2 продолжает оставаться инициализированным.
Вопрос такой, как определить, уничтожен ли объект на который указывает Form2?
Вопрос касается не только форм, но и любых наследников TObject иже с ними.

Заренее спасибо
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.