Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как проверить существование объекта? 
:(
    Опции темы
Гость_Игорь
Дата 20.6.2005, 23:36 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
В общем возможна такая ситуация :

Код

var O : TObject;
O:= TObject.Create;
O.Free;



О <> nil, но в то же время реально объекта уже не существует.
Как проверить валидна ли ссылка О ?
if Assigned(О) не помогает.
На крайняк можно try-except использовать конечно, но вдруг
есть более элегантное решение ?

Заранее спасибо.
  Вверх
p0s0l
Дата 21.6.2005, 00:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112
Лучше вместо O.Free делать FreeAndNil(O)


--------------------
С уважением, г-н Посол.
PM   Вверх
Snowy
Дата 21.6.2005, 09:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Код

var
  O : TObject;    
begin
  O:=nil;
  O:= TObject.Create;
  if Assigned(O) then ...
  O.Free;
PM MAIL   Вверх
p0s0l
Дата 21.6.2005, 15:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112
Snowy
Цитата
if Assigned(О) не помогает.

Похоже, Игорю нужно проверить валидность ссылки не до O.Free, а после...



--------------------
С уважением, г-н Посол.
PM   Вверх
Snowy
Дата 21.6.2005, 15:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Цитата(p0s0l @ 21.6.2005, 15:37)
Похоже, Игорю нужно проверить валидность ссылки не до O.Free, а после...

Извиняюсь, что-то я стал читать на бегу.
Слова "уже" не подметил...

Цитата(p0s0l @ 21.6.2005, 00:23)
FreeAndNil(O)

Код

  O.Free; O:=nil;

Смотрится более неаккуратно, но полученный в итоге код мне больше нравится, чем
Код

procedure FreeAndNil(var Obj);
var
  Temp: TObject;
begin
  Temp := TObject(Obj);
  Pointer(Obj) := nil;
  Temp.Free;
end;

Как-то мне непонятна логика писавшего эту функцию...
PM MAIL   Вверх
Гость_Игорь
Дата 21.6.2005, 19:35 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Идея понятна.
Всем спасибо.

Что качается текста FreeAndNil, то действительно
не очень смотрится.

Вобщем, я думаю, проще переписать эту процедуру.
  Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0503 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.