Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Вниз

Завершение приложения после исключительной ситуации   Найти похожие ветки 

 
programmist87 ©   (2007-05-11 23:16) [0]

В программе сгенерировал исключительную ситуацию:

raise Exception.Create("...");

Нужно чтобы после генерации своего исключения приложение завершилось. Но как я понял, следующий за этими операторами исходный текст игнорируется. А при нажатии в сгенерированном окне исключения кнопки ОК приложение автоматически не завершается. Как в таком случае автоматически завершить приложение?


 
Kolan ©   (2007-05-11 23:25) [1]

try
 &#133
 raise Exception.Create("&#133");
except
 Close; //Завершение.
end;  


Еще можно посмотреть компонент TApplicationEvents


 
Sergey Masloff   (2007-05-11 23:26) [2]

try
except
 on e : MyException do
   Закрываю приложение


 
DrPass ©   (2007-05-11 23:26) [3]


> Но как я понял, следующий за этими операторами исходный
> текст игнорируется

Для того, чтобы исполнить какой-либо код независимо от того, произошло исключение или нет, используй блок try...finally. Для "глобального" отлова исключений есть событие Application.OnException


 
{RASkov} ©   (2007-05-11 23:52) [4]

> [0] programmist87 ©   (11.05.07 23:16)

А может и не надо ее(искл ситуацию) генерить? Вместо генерации показал мессагу, что кирдык мне и закрыл прогу.....



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.046 c
5-1155200245
Priest
2006-08-10 12:57
2007.06.03
TComponent и IInterface


1-1175784784
DelphiLexx
2007-04-05 18:53
2007.06.03
Как в компоненте TDBTreeView один из элементов выделить жирным


8-1149574339
Igors
2006-06-06 10:12
2007.06.03
midi библиотеки


2-1177523688
красотка (С)
2007-04-25 21:54
2007.06.03
Чем открыть файлы *.ADI, *.ADT


15-1178611316
Knight
2007-05-08 12:01
2007.06.03
Чё-то я вообще местную модерацию понимать перестал..





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский