VPF::Exception in destructor - Форум программистов

Gershkovich

Дата 6.2.2008, 15:40 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: 0
Всего: 2

Привет всем!

Можно ли предотвращать уничтожение инстанса выбросив exception в деструкторе?
вот таким образом :

Код


destructor TProfile.Destroy;
  if Locked then raise Exception.Create('Locked :(');

  inherited;
end;

Будет ли инстанс после этого юзабельным ?
Спрашиваю от того что не уверен в этом.
Я провел такой эксперимент:

Код


  TDummy = class
    Name : string;
    destructor Destroy; override;
  end;

  destructor TDummy.Destroy;
  begin
    // Empty destructor
    inherited;
  end;

....

  d:= TDummy.Create;
  d.Name:= 'The Name';

  try
    d.Free;
  except
    // do nothing
  end;

  ShowMessage(d.Name);

и обнаружил что вызов ShowMessage происходит нормально
как будто объект существует.

Заранее спасибо.

lukas

Дата 6.2.2008, 17:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

естественно объект останется, если исключение вызвано до inherited... что удивительного....

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

Alexeis

Дата 10.2.2008, 17:46 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Gershkovich, не хорошо это. Самый худший вариант развития это исключение в деструкторе.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »