[aleksnine]

привет.

У меня вопрос , а почему try except срабатывает не всегда.
Вообщем вот пример

1ая процедура

Код:

try
//грузим jpeg в timage
except
Showmessage('error');
end;

2ая процедура

Код:

try
// в цикле сохраняем и загружаем картинки в timage
except
Showmessage('error');
end;

Вопрос : почему во 2ой процедуре ловится исключение а в 1ой нет ?
Тоесть во второй выводится мой showmessage , а в 1ой стандартная ошибка .
Вроде все правильно написано.
В коде ошибок нет , компилируется проект без ошибок.
Спасибо.

[Artem28]

У меня в обоих случаях ловится сообщение!

[Artem28]

Приведи полный код

[4erep_88]

Запускай не из Delphi или отключи обработку исключительных ситуаций.
PS: Все тип-топ.

[aleksnine]

Код:

try
for i:=0 to jlist.items.count -1 do begin
with Timage.create(form1) do begin
Parent:=form1;
Left:=x;
Top:=y;
picture.loadfromfile(jlist.items.strings[i]);
autosize:=true;
x:=x+width;
end;
end;
except
Showmessage('error');
end;

Тут все ловится .
А вот тут нет .

Код:

try
(sender as Timage).picture.loadfromfile(jlist.items.strings[jlist.itemindex]);
except
Showmessage('error');
end;

[4erep_88]

У меня в обоих случаях ловится.