Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
RunError
Процедура
Заканчивает программу с диалогом ошибки System unit
  procedure RunError ( { ExitValue : Integer } ) ;
Описание
Процедура RunError вынуждает резкое завершение текущего приложения.

Предупреждение: нельзя гарантировать,что ресурсы быдут освобождены при запросе RunError.

Например, переменная ExitCode может быть установлена, передавая ExitValue. Этот код возвращается завершателю приложения как код возврата от приложения.

Диалог отобразится, показывая ErrorAddr (где RunError был выполнен) и значение ExitCode.

После RunError выполняется, раздел finalization модуля, которая выполняется прежде, чем программа фактически заканчивается.
Примечания
Предупреждение: используйте только в исключительных обстоятельствах.
Похожие команды
Break  Выполняет выход из одного цикла

Exit  Осуществляет выход из функции или процедуры

ExitCode  Устанавливает код возврата, когда приложение заканчивается

Goto  Вызывает скачок к метке, независимо от вложения

Halt  Заканчивает программу с дополнительным диалогом.

Abort  Прерывает обработку команд и выходит к последнему исключительному блоку

 
Пример кода : Закончивание программы с диалогом ошибки
begin
  // Остановка программы с кодом завершения 0
  RunError;

  // Нижеследующее не будет выполнено
  ShowMessage('Мы не добираемся настолько далеко');
end;
Программа заканчивается, не выполняя инструкцию ShowMessage. Диалог ошибки отобразит:

Runtime error 0 at 00452105
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия