Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как проверить существует ли объект [D7, XP]

logslava © (2006-11-01 15:06:00)
Здравствуйте, мастера!
Подскажите пожалста, как проверить в некоей процедуре
MyProc(Obj: TObject...) "живой" ли этот объект?

проверять
if Obj<>nil then...
недостаточно, ведь ссылка не обНИЛяется при вызове деструктора Free
т. е. совсем не обязательно что моя процедура будет вызвана для инициализированного объекта, а не удаленного - а нужно обращаться к полям и методам

Джо (2006-11-01 15:34:00) [1]
> [11] Desdechado © (01.11.06 15:24)
> Джо © (01.11.06 15:19) [5]
> Ну, извратиться можно и не так еще, вот только зачем?

Ничего нереального не вижу. Разве ссылка на объект не может содержаться более, чем в одной переменной? Всего лишь показываю, что FreeAndNill никак в этом случае не поможет.

Anatoly Podgoretsky (2006-11-01 15:29:00) [2]
> Джо (01.11.2006 15:22:09) [9]

ПР: Где?

АП: в 17 строке.

MetalFan (2006-11-01 15:24:00) [3]
ну это уже не должно быть твоей головной болью!

Desdechado (2006-11-01 15:24:00) [4]
Джо © (01.11.06 15:19) [5]
Ну, извратиться можно и не так еще, вот только зачем?

Джо (2006-11-01 15:22:00) [5]
> [4] logslava (01.11.06 15:19)
> дело в том, что модуль с процедурой будет подключаться к
> программе не мной писанной и нелишним было бы проверить
> (написал ли другой программист FreeAndNil или же просто
> Free - заранее неизвестно)

Значит, отлуп по AV нужно показывать тому программисту, который писал "ту программу". На предмет тыкнуть носом и сказать — у тебя в программе ошибка :)

Anatoly Podgoretsky (2006-11-01 15:21:00) [6]
Desdechado © (01.11.06 15:17) [2]
Я бы не стал закладываться на nil
.Create ... := nil; ... if Obj<>nil then...

logslava (2006-11-01 15:21:00) [7]
я-то знаком с этим принципом, но не факт, что другой напишет правильно и вызовет мою процедуру

Джо (2006-11-01 15:20:00) [8]
> MyProc (O1);

То есть MyProc(02);

logslava (2006-11-01 15:19:00) [9]
дело в том, что модуль с процедурой будет подключаться к программе не мной писанной и нелишним было бы проверить (написал ли другой программист FreeAndNil или же просто Free - заранее неизвестно)

Джо (2006-11-01 15:19:00) [10]
> [2] Desdechado © (01.11.06 15:17)
> FreeAndNil при разрушении объекта или просто :=nil после
> Free

var O1, O2: TObject; ... O1 := O2; FreeAndNil (O1); MyProc (O1);

Anatoly Podgoretsky (2006-11-01 15:18:00) [11]
Это не возможно в принципе.
Пиши правильную программу.

Desdechado (2006-11-01 15:17:00) [12]
FreeAndNil при разрушении объекта или просто :=nil после Free

Джо (2006-11-01 15:14:00) [13]
Нужно писать программу так, чтобы подобной ситуации не возникала. А законный отлуп по AV будет честным предупреждением о том, что где-то в программе эта схема нарушается и нужно исправлять программу.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »