Индикаторы CheckBox и CheckListBox

Индикатор с флажком CheckBox (закладка Standard) используется в приложениях в основном для того, чтобы пользователь мог включать и выключать какие-либо опции, или для индикации состояния.

Табл.3

Задание 2:Создатьприложение, путем установки соответствующих флажков позволяющее изменять начертания шрифта введенного текста.

Будем ориентироваться на следующий вид формы:

Рис.3

Для вывода результата предназначается метка lbl_Result. Свойство Style компонента Label определяет стиль начертания шрифта, используемого для отображения текста, и может, в частности, принимать следующие значения:

- [] – обычный;

- [fsBold] – полужирный;

- [fsItalic] – наклонный;

- [fsUnderline] – подчёркнутый.

Создадим процедуры-обработчики событий, связанные с включением и выключением флажков. Приведем пример одной из них:

procedure TForm1.chB_BoldClick(Sender: TObject);

begin

if chB_Bold.Checked = true

then lbl_Result.Font.Style := lbl_Result.Font.Style+[fsBold]

else lbl_Result.Font.Style := lbl_Result.Font.Style-[fsBold];

end;

Свойство Style (как и многие свойства визуальных компонентов) является множеством и, следовательно, с ним можно осуществлять стандартные операции, предназначенные для множеств. В приведенном примере к текущему значению множества lbl_Result.Font.Style добавляется или исключается элемент [fsBold] в зависимости от значения свойства Checked. Тем самым обеспечивается изменение начертания шрифта, которым отображается текст метки lbl_Result.

Напишите процедуры для оставшихся компонентов CheckBox.

Обработчики исключений

В Delphi предусмотрены средства перехвата ошибок, возникающих во время выполнения программы. Например, при расчёте математических выражений, содержащих вычисления в знаменателе, можно получить деление на 0. Средство защиты от подобных ситуаций называется обработчиком исключений и может применяться в двух версиях:

1 версия:

try

{Защищенные операторы};

except

{операторы обработки исключения}

on [идентификатор_исключения:]тип_исключения do

begin [операторы_обработки_исключения;] end;

[else

{операторы обработки исключения по умолчанию}

]

end; // try

2 версия:

try

{Защищенные операторы};

finally

{ Операторы, которые должны быть выполнены даже в случае ошибки }

end; // try

Операторы, следующие за ключевым словом try, называются защищенными операторами и реализуют нормальную логику программы. Try используется для отметки начала блока кода, которые перехватывающего ошибки. В приложениях, использующих модуль SysUtils, исключение генерируется, когда происходит ошибка или другое событие, нарушающее нормальную работу программы. В этом случае управление передаётся соответственно или к finally, или к except разделу.

В версии 1, когда управление передается в раздел except, приложение пытается определить обработчик, применимый для текущего исключения. Если поиск успешен, то выполняются его операторы, после этого объект исключения автоматически уничтожается. Если применимый обработчик не найден, то выполняется раздел else, содержащий обработчик по умолчанию (если он есть). Затем выполнение программы продолжается, начиная с оператора, следующего за блоком except (т.е. расположенного за ключевым словом end).

Приведем некоторые типы исключений (всего имеется сотни классов исключений):

{Здесь будет таблица исключений}

В версии 2 если в любом из операторов блока try возникает исключительная ситуация, то управление пере­дается первому оператору блока finally. Если же исключительная ситуация не возникла, то последовательно выполняются все операторы обоих блоков. Версия try … finally применяется для выполнения всех необходимых действий перед передачей управления на следующий уровень обработки ошибки или глобальному обработчику. В результате таких действий может произойти, например, освобождение опера­тивной памяти или закрытие файла. Эта конструкция не обрабатывает объект исключительной ситуации и не удаляет его, а выполняет действия, которые должны быть осуществлены даже в случае возникновения ошибки.

Рассмотрим пример: Вычислить значение функции .

Рассмотрим фрагмент кода:

var y:real;

begin

try

y:=sqrt(StrToFloat(edt_x.text))/

StrToFloat(edt_z.text);

Edt_y.text:=FloatToStr(y);

except

on EZeroDivide do

MessageDlg('Ошибка. Деление на 0!!!', mtError, [mbCancel],0);

on EMathError do

MessageDlg('Ошибка. Действительный корень из отрицательного числа не существует!!!', mtError, [mbCancel], 0)

else

MessageDlg('Ошибка!!!',mtError,[mbCancel],0);

end; // try

end;

Запустим подготовленный пример из среды разработки Delphi. При вводе исходных данных, не соответствующих ОДЗ функции (например, ), мы увидим результат, не соответствующий нашим ожиданиям. Дело в том, что среда Delphi по умолчанию сама перехватывает ошибки. Для отключения режима интегрированной отладки сделаем следующее: в менюTools→ Options→Debugger Options, и на вкладке General снимем флажок Integrated debugging (рис.4).

Рис.4

Протестируйте программу с особыми данными еще раз.

При запуске уже готового exe-файла приложения вне среды разработки Delphi структура try срабатывает должным образом.

Лабораторная работа №1. Табулирование функции

В соответствии с указанным вариантом протабулировать значения функции.

Возможный вид главной формы

Рис.7

На форму в обязательном порядке поместить следующие компоненты:

Приложение должно защищать поля ввода исходных данных от внесения данных, не являющихся вещественными числами. Область просмотра не должна быть доступна для редактирования. Следует обработать все возможные исключительные ситуации.

Варианты заданий: