|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
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; Програмист приходит на стрельбище. Стреляет. Прапор смотрит на мешень и говорит Прапор: вы не попали ни один раз. Программист: Пули вылетели, проблемы у вас. |
#2
|
|||
|
|||
Да, будет.
А самому попробовать просто поставив ShowMessage в Finally? Код:
procedure TForm1.Button1Click(Sender: TObject); begin Try ShowMessage('Try'); Exit; Finally ShowMessage('Finally'); End; end; |
#3
|
|||
|
|||
Проверял по трейсу останавливается на проце exit и выходит. Теперь вижу что выполняется спс.
Програмист приходит на стрельбище. Стреляет. Прапор смотрит на мешень и говорит Прапор: вы не попали ни один раз. Программист: Пули вылетели, проблемы у вас. |