Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

While not EOF(F) do begin

Защищенные блоки | Finally | Класс Exception | while notEOF(F) do |


Читайте также:
  1. About lyrical begin in younger history canto
  2. Albania breaks ties with Yugoslavia; Soviet Union begins economic aid to Albania.
  3. Decide, get into, drive, find, take, start, tell, pack, move, begin, see, run away, can, be, have, get out, mend, arrive, go
  4. HOW A CRIMINAL CASE BEGINS
  5. If Strike isn't Settled Quickly, It May Last a While
  6. In my beginning is my end.

...

end;

CloseFile (F);

Except

Оn Е: EInOutError do

ShоwМеssаgе('При выполнении файловой операции возникла ошибка №'

+ IntToStr(E.ErrorCode));

end;

 

Вызов исключения

В некоторых ситуациях программисту бывает необходимо инициировать собствен­ное исключение. Для этого он использует зарезервированное слово raise (возбу­дить). Если это слово встретилось в секции try...except или try...finally, немедленно начинают свою работу соответственно секция except...end или finally...end. Если оно встретилось в секции except...end или finally...end, считается, что данный защищенный блок на текущем уровне вложенности (блоки могут быть вложенными) завершил свою работу и управление передается выше­стоящему уровню.

Слово raise возбуждает исключение самого общего класса Exception. Если программист желает возбудить исключение конкретного типа (неважно, стандарт­ного или собственного), он должен явно указать класс создаваемого в этот момент объекта путем вызова его конструктора. Например, следующий оператор возбу­дит ошибку ввода-вывода:

raise ЕInОutЕrrоr.Сrеаtе('Ошибка! ');

Такой прием - единственная возможность возбудить нестандартное исключе­ние, обрабатываемое пользовательским классом.

 


Дата добавления: 2015-07-19; просмотров: 48 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Стандартные классы исключений| Создание собственного класса

mybiblioteka.su - 2015-2024 год. (0.005 сек.)