Показать сообщение отдельно
  #1  
Старый 08.12.2008, 17:01
dmdx dmdx вне форума
Начинающий
 
Регистрация: 24.05.2008
Адрес: Москва
Сообщения: 133
Репутация: 15
По умолчанию Try ... Finally и Exit

Всех приветствую.
народ подскажите такую вещь будет ли отрабатываться процедура FreeAndNill? при выполнении процедуры Exit.
Код:
var
  QuestForm : TfrmExpExcelParam;
begin

  QuestForm := TfrmExpExcelParam.Create(nil);
  try
   if QuestForm.ShowModal = mrOk then begin

   end else Exit;
  finally
   FreeAndNil(QuestForm);
  end;
__________________
Програмист приходит на стрельбище. Стреляет. Прапор смотрит на мешень и говорит
Прапор: вы не попали ни один раз.
Программист: Пули вылетели, проблемы у вас.
Ответить с цитированием