Стр. 335 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
335
begin
lb_One.Visible:=True;
lb_One.Caption:='1';
end
else
lb_One.Visible:=False;
end;
Первая процедура содержит инструкции, обрабатывающие событие –
щелчок на кнопке bt_Open . Здесь включается таймер и устанавливается интер-
вал его срабатываний в 200 миллисекунд.
Вторая процедура определяет работу таймера. Здесь переменной s с по-
мощью метода random присваиваются случайные целые значения, берущиеся
из интервала от 0 до 4. Если случайно выпадает цифра 1, то метка lb_One ста-
новится видимой и ее свойству Caption – Заголовок присваивается значение 1.
Если случайно выпадают числа 0, 2, 3, или 4, метка становится невидимой.
except – кроме
Зарезервированное слово except применяется при обработке исключи-
тельных ситуаций. Блок try...except позволяет выполнить некоторые действия
при возникновении исключительной ситуации. Операторы, написанные между
словами except и end, выполняются только при возникновении исключитель-
ной ситуации.
Пример:
procedure TFormGlavn.bt_CalcClick (Sender: TObject);
var
x, y: real;
begin
try
x:= 0;
y: = 5 div x;
except
lb_Oshibka.Visible:= True;
lb_Oshibka.Caption: = 'На нуль делить нельзя! ';
end;
В блоке try...except переменной х присваивается значение 0 и переменной
у присваивается значение 5 div x.
Так как на нуль делить нельзя, то возникает исключительная ситуация,
поэтому будет выполнено следующее: свойству Visible – Видимость метки
lb_Oshibka присваивается значение true, т. е. метка отобразится на форме.
Свойству Caption – Заголовок метки присваивается строка На нуль делить
нельзя.