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

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

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

Ссылка на уничтоженный объект [D7, Win2k]

OlkaGTS © (2004-06-15 16:04:00)
Уважаемые!

Возник у меня такой вопрос, помогите кто чем может.

... var SomeObj: TSomeObj; ... begin ... SomeObj.DataSet:=SomeDataSet; ... // а в это время где-то случился SomeDataSet.Free; ... //а вот здесь надо проверить не ссылается ли DataSet на уничтоженный объект if SomeObj.DataSet.Active then ... end

Как можно выяснить, что SomeObj ссылается на уничтоженный объект? TSomeObj не является наследником TComponent и смысла его таковым делать нет, кроме как из-за Notification. Можно ли как-то по-другому выяснить в момент обращения к свойству DataSet, что он не существует.

AlexG (2004-06-15 16:35:00) [1]
//Assigned(SomeObj.DataSet) = true и SomeObj.DataSet <> nil.
Надо же присваивать значение NIL после Free, тогда все будет ОК...

malkolinge (2004-06-15 16:29:00) [2]
FreeNotification + F1

Плохиш (2004-06-15 16:25:00) [3]
Четвёртое. Программистов, у которых // а в это время где-то случилсянадо увольнять без выходного пособия.

Тимохов (2004-06-15 16:21:00) [4]

> OlkaGTS (15.06.04 16:04)

Первое. Такие вопросы возникают регулярно.
Второе. Потрудитесь найти (на прошлой неделе был).
Трерье. Узнать никак.

OlkaGTS (2004-06-15 16:19:00) [5]
И что сие означает FreeAndNil?
Если речь идет о том, что
SomeDataSet.Free;
SomeDataSet=nil
то это никак не спасает, поскольку
Assigned(SomeObj.DataSet) = true и SomeObj.DataSet <> nil.
А вот при обращении к любому из свойств SomeObj.DataSet.... возникает Access violation, что справедливо, поскольку SomeObj.DataSet непонятно куда ссылается.

iat (2004-06-15 16:16:00) [6]
там, где
// а в это время где-то случился SomeDataSet.Free;
пишем
SomeDataSet.Free;
SomeDataSet:=nil;
// или используем FreeAndNil()

и где надо, проверяем
if (SomeObj.DataSet<>nil) then if SomeObj.DataSet.Active then ... end else else // делаем ругательство

Плохиш (2004-06-15 16:08:00) [7]

> помогите кто чем может.

Денег не дам!

Используй FreeAndNil

Наверх

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