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;
|