|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Завершение одной процедуры из другой
Можно ли из вызываемой процедуры завершить вызывающую? т.е
Код:
procedure Main(a: Integer) begin if a < 0 then Error; end; procedure Exit; begin ShowMessage('Error'); Exit Main end; |
#2
|
||||
|
||||
если тока так
Код:
procedure Main(a: Integer) begin if a < 0 then if Error then Exit; end; function Exit : boolean begin ShowMessage('Error'); Result:=true; end; РГРТУ - ФВТ - Системы Автоматизированного ПРоектирования. ت |
#3
|
|||
|
|||
Можно, и гораздо проще. Вызови Abort. Это т.н. silent exception. Соотв. в вызывающей процке надо учитывать это при обработке эксепшенов.
|