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;
__________________
Програмист приходит на стрельбище. Стреляет. Прапор смотрит на мешень и говорит
Прапор: вы не попали ни один раз.
Программист: Пули вылетели, проблемы у вас.
|