|
|
Алгоритм обработки
RunError
Это неплохая вещь! Вы, конечно, не любите, когда Delphi 3 выдает вам какие-то
сообщения об ошибках выполнения. Теперь вы сможете создавать их сами. В любой
момент во время работы программы вы можете выполнить команду RunError с
параметром типа Integer. Это прервет работу программы и выдаст пользователю
число, которое вы указали, как номер ошибки, вызвавшей прерывание. Смотрите
короткий пример в листинге 3.13.
Листинг 3.13. Применение оператора RunError
program RunErrorDemo;
uses Forms;
var
I : Char;
begin
repeat
Write('Введите символ (для окончания введите Q) : '); ReadLn(I); If I = 'Q' then
RunError (240); Until FALSE;
WriteLn ('Этот оператор никогда не выполняется'); end. { RunErrorDemo 1
то__________________________________________
•»Wfcir~N Эта программа генерирует ошибку выполнения с номером 240 каждый AJ™r
раз, когда пользователь введет 'Q'. Если я запущу отладчик, я смогу видеть
появляющиеся ошибки выполнения. Это может пригодиться, особенно если вы думаете,
что ваше приложение не генерирует само по себе достаточное количество ошибок
(конечно, шутка). Ошибки выполнения перечислены во встроенной документации по
Delphi. Но ошибка 240 не перечислена в числе стандартных ошибок, так как это
ошибка, собственноручно созданная мною. Значения ошибок могут быть не выше 255.
|
