|
|
Алгоритм обработки
Halt
Halt позволяет вам прекратить выполнение программы. Где бы в текст вы ни
поместили оператор Halt, он завершит выполнение вашей программы Но прежде, чем
вставлять эту команду в ваше приложение, задайте се& несколько вопросов:
D Хочу ли я оставить открытыми все базы данных и файлы? Они могу;
испортиться, если я покину их таким образом. П Выделял ли я пространство в
памяти, которое не освободил и, следова
тельно, потеряю его?
П Хочу ли я оставить соединение с сервером открытым? П Поместите здесь еще
какие-то ваши сомнения!
Вы должны быть осторожны с таким мощным оператором. Он мозш доставить вам немало
хлопот. Этот оператор можно использовать, когда в вашей программе встретилась
неисправимая ошибка. Некоторые из кодов возврата из Windows, как и из Delphi,
дают вам знать, что случилось что-то неладное. Это могут быть проблемы,
связанные с памятью или с дисками, Они могут заставить вас прервать работу по
Halt вместо того, чтобы аккуратно завершить ее по Exit. Я рекомендую вам всегда
стараться закрывать свои приложения более культурно. Используйте Halt только в
крайних случаях и дважды подумав перед этим. Если вы останавливаете приложение
оператором Halt, вы можете оставить открытые файлы, распределенную память и
всякий «мусор» на дисках. Теперь короткий пример в листинге 3.12.
w
Листинг 3.12. Применение оператора Halt
program HaltDemo;
uses Forms;
var
I : Char;
begin Repeat
Write('Введите символ (для окончания введите Q) : '); ReadLn(I); If I = 'Q' then
Halt;
Until FALSE;
WriteLn ('Этот оператор никогда не выполняется'); end. { HaltDemo }
•т, ^-- В этой программе ее выполнение прекращается, если пользователь
""(je^n ввел 'Q'. Это не очень гладкий выход, но его можно применить при
крайней необходимости. При нормальных обстоятельствах (и более
сложных программах) вы можете захотеть выполнить перед уходом какие-то
команды, чтобы навести порядок в вашем приложении.
|
