Читайте также:
|
Программист может создать собственный класс обработки исключений, объявив его потомком Exception или любого другого стандартного класса (этим другим чаще всего бывает класс EAbort). Объявление нестандартного класса имеет смысл только тогда, когда вам необходимо научить программу распознавать некорректные наборы данных и соответствующим образом на них реагировать.
Пусть, например, в программе используется цикл ввода целочисленных значений из текстового файла, их проверки и преобразования. Проверка заключается в простом контроле неотрицательности очередного числа после ввода и его положительности после преобразования. Перед проверкой необходимо получить строку из файла (здесь может возникнуть ошибка EInOutError) и преобразовать ее в целую величину (здесь возможна ошибка EConvertError); после проверки осуществляется обработка величины, в процессе которой может возникнуть ошибка EIntError.
Создадим новый класс EIntCheckError и будем возбуждать исключение этого класса приобнаружении ошибки в данных:
Type
EIntCheckError = class (EAbort)
end;
Var
F: TextFile;
S: String;
k: Integer;
Begin
...
Try
// Готовимся к работе: открываем файл
AssignFile(F, FileName);
Reset(F); // Здесь возможна ошибка EInOutError
// Цикл ввода-контроля-преобразования
Дата добавления: 2015-07-19; просмотров: 40 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| While not EOF(F) do begin | | | while notEOF(F) do |