Try и TImage [Delphi 7]

[-Jack-]

Всем доброго времени суток. Столкнулся с такой интересной загвоздкой:
В CreateForm находится такой код:

  try
    Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'img.jpg');
  Finally
    ...
  end;

Но если файла нет (img.jpg), то все равно выводит ошибку "Cannot open file" ... как будто try-Finally нет вовсе

[Пепел Феникса]

вы запускаете под отладчиком или вне него?

[-Jack-]

без отладчика запускал ...
если запускать с отладчиком, запуск стопорится и выдаётся ошибка на строчке:

Forms:

procedure TCustomForm.DoCreate;
begin
  if Assigned(FOnCreate) then
  try
    FOnCreate(Self);
  except
    if not HandleCreateException then
      raise;
  end;
  if fsVisible in FFormState then Visible := True;
end;

[-Jack-]

В принципе выкрутился, поставив проверку на присутствие файла - FileExists, но всё равно не понятно, почему выдаётся ошибка ...

[netrino]

Мне боле интересно почему её не должно быть. Разве finally перехватывает исключения? Насколько я знаю, оно лишь гарантирует выполнения кода внутри своего блока, но если исключение возникло, то после выполнения блока finally оно будет проброшено выше.

[Пепел Феникса]

вообще то finally выполнится всегда и при исключении и без.

ТС, Делфи под отладчиком по умолчанию показывает исключения всегда(даже обработанные)
просто жмите продолжить.

[Serge_Bliznykov]

ТС, Делфи под отладчиком по умолчанию показывает исключения всегда(даже обработанные)

это не так.
В опциях Delphi (Debugger Options - Language Exception) уберите галочку
(ну что-то типа [ ] "Notify on language exceptions"
или (в старых версия Delphi) - [ ] "Stop on Delphi exception" )


Однако в этом случае дело в другом.
Как правильно сказал netrino в пост #5 try finally и НЕ ДОЛЖНО перехватывать exceptions! Это не его задача!
Нужно обработать исключение, пользуйтесь блоком try ... except, который для этого и предназначен!

[-Jack-]

Хм ... Не знал, спасибо большое ! Тему можно закрывать