Исключительные ситуации

[FIIR]

try
fmGlav.QSKLAD.Close;
fmGlav.QSKLAD.SQL.Clear;
fmGlav.QSKLAD.SQL.add('insert into ....');
fmGlav.QSKLAD.SQL.add('...')
fmGlav.QSKLAD.execsql;
except
Application.MessageBox('...','Ошибк а');
end;

Почему не работает try except?

[Баламут]

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

[edgy]

Заходи в Delphi в Tools -> Debugger Options -> Language Exceptions и снимай галку "Stop on Delphi Exceptions".

[Баламут]

Сообщение от edgy

Заходи в Delphi в Tools -> Debugger Options -> Language Exceptions и снимай галку "Stop on Delphi Exceptions".

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

[edgy]

Сообщение от Баламут

Задолбаешься потом Делфи перезапускать.

Вы, наверное, имели в виду перекомпилировать проект.
Просто если изначально возможные уязвимые места в программе заключать в блок try except, то можно и не вешать обработку исключительных ситуаций на Delphi. Хотя на начальном этапе будет все-таки лучше обратное.

[Баламут]

Это если так делать. Я не случайно сказал "пока опыта не наберешься". Можно и не заметить эти места и тогда возникнет ситуация о которой я говорил выше.