case o of

'+': y:= x + y;

'-': y:= x - y;

'*': y:= x * y;

'/': if y = 0 then

ShowMessage('Деление на ноль')

Else

y:= x / y;

end;

Edit1.Text:= FloatToStr(y);

end;

l) Напишите код программы для остальных арифметических действий, используя процедуру обработки щелчка для кнопки с “+” для кнопок с “-”, “*”, “/”;

m) Запустите проект, проверьте правильность его работы. Попробуйте какое-нибудь число разделит на 0. Измените программу так, чтобы при делении на 0 выводилось сообщение о невозможности этой операции;

n) Напишите обработчики события OnClick для кнопки “,” и “+/-”; Обратите внимание, что запятая в записи числа может быть только одна!

o) Проверьте работу проекта.

2. Проект “Видеотека”

Разработать проект, который позволяет вносить данные о видеокассетах, сохранять данные в файл и осуществлять поиск фильмов указанного жанра. На этапе выполнения форма должна иметь следующий вид:

a) Создайте новый проект в Delphi и сохраните его в отдельной папке “Видеотека”;

b) Разместите на форме с закладки Win32 компонент PageControl. Этот компонент представляет собой многостраничное окно с закладками. С помощью контекстного меню компонента добавьте 2 страницы “Ввод данных” и “Поиск данных”; С помощью якорей привяжите закладки к границам окна.

c) На первой странице PageControl разместите компонент StringGrid со страницы Additional палитры компонентов. Этот компонент представляет таблицу строк, необходим для занесения сведений о фильме:

· С помощью свойства ColCount установите количество столбцов таблицы, в данном случае 4;

· С помощью свойства RowCount установите количество строк таблицы, в данном случае 10;

· Разрешите редактирование таблицы, установив свойство Options.goEditing в состояние true;

d) На первой странице PageControl разместите компонент BitBtn со страницы Additional палитры компонентов. Этот компонент представляет собой кнопку с графикой. С помощью свойств Caption и Gliph установите требуемый вид кнопки;

e) В процедуре обработки события OnCreate формы подпишите названия столбцов и пронумеруйте строки. Для этого используйте свойство Cells компонента StringGrid, например:

StringGrid1.Cells[1, 0]:='Название фильма';

StringGrid1.Cells[0, 1]:='1';

f) Проверьте работу проекта;

g) Для сохранения данных в файл опишите в модуле тип запись, содержащий сведения о фильме, и файл записей;

h) Обработайте событие OnClick для кнопки “ОК”, в котором сведения из таблицы заносите в файл;

i) На странице “Поиск данных” компонента PageControl разместите компонент LabelEdit со страницы Additional палитры компонентов. Этот компонент необходим для оформления подписи “Введите жанр” и ввода жанра;

j) На странице “Поиск данных” компонента PageControl разместите компонент SpeedButton. Этот компонент представляет собой кнопку с графикой и возможностью фиксации. Оформите её внешний вид в соответствии с требуемым, используя свойство Caption и Glyph. Файл выберите из C:\Program Files\Common Files\Borland Shared\Images\Button;

k) Дооформите страницу “Поиск данных” в соответствии с требуемым видом;

l) Обработайте событие OnClick для “Найти”, осуществляя поиск фильмов указанного жанра и выводя найденные фильмы в ListBox;

m) Проверьте работу проекта.

Дата добавления: 2015-08-17