Подгрузка битмапов с проверкой

← →
PC © (2004-11-02 13:55) [0]

Т.е. мне нужно, чтобы прога при отсутствии файла или его "инвалидности" не валилась, а говорила юзверю об этом. Написал такую функцию:
function SafeLoadImage(filename:string; var image:TImage; AOwner:TComponent):boolean; begin image := TImage.Create(AOwner); try image.Picture.LoadFromFile(filename); except on EFOpenError do begin ShowMessage("Îøèáêà ïðè çàãðóçêå ôàéëà"+filename); result := false; exit; end; end; result := true; end;
Все равно валится. Че делать? Среда Delphi 6. Заранее спасибо.

← →
ssk © (2004-11-02 14:09) [1]

может надо Parent"а указать?

← →
Pentium133 © (2004-11-02 14:12) [2]

Что значит "валится"?

← →
PC © (2004-11-02 14:36) [3]

>может надо Parent"а указать?
Его я потом указываю.
>Что значит "валится"?
Ну вылетает такое неприятное окошечко... Типа там "Project *.exe raised exception class EFOpenError with message "Cannot open file *.bmp". Process stopped. Use Step or Run to continue.". Вот.

Все, пасиба, вопрос отпал сам собой. Просто надо было запускать приложение не из среды...

> Просто надо было запускать приложение не из среды...

Можно и в среде. Только отключи "Debuger Options -Stop on Delphi Exceptions"

Подгрузка битмапов с проверкой Найти похожие ветки