Компиляция и отладка приложения.

1. Подготовка приложения к отладке:

а. Прежде чем отлаживать приложение, его необходимо откомпилировать специальным образом. Для этого следует выполнить команду ProjectOptions и выбрать страницу Compiler. На этой странице необходимо выбрать опции Debug Information, Local Symbols и Reference Info. После этого необходимо выполнить команду Project/Compiler (комбинация клавиш <Ctrl-F9>). Теперь приложение готово к отладке.

б. Командой View/Debug windows/Watches вызовите окно наблюдений. Окно наблюдений используется в отладочном режиме для наблюдения за изменением значений выражений, помещенных в это окно. Для добавления нового выражения щелкните по окну правой кнопкой мыши и выберите опцию Add Watch. В строке Expression введите выражениеAcol. Окно Repeat count определяет количество показываемых элементов массивов данных; переключатель Enabled разрешает или запрещает вычисление выражения. Остальные элементы определяют вид представления значения. В отладочном режиме текущее значение любой переменной можно посмотреть, указав на нее курсором: значение появится в ярлычке с курсором.

в. Установите две точки контрольного останова: щелкните мышью, указав на служебную зону слева от нужной строки в программе (выберите строки, содержащие Acol).

2. Выполните программу (<F9>). После останова выполняйте программу построчно. Посмотрите значения переменных при помощи установки на них курсора.

3. Попробуйте другие методы отладки, например Run To Cursor, Program Pause, Program Reset.

Задания:

1. Разработать приложение для обработки результатов соревнований. Исходные данные: фамилия спортсмена, время старта, время финиша, контрольное время. Вывести фамилии спортсменов, уложившихся в контрольное время. Рекомендации: фамилии спортсменов задать в виде типизированной константы-массива; время старта и время финиша вводить в таблицу; результат отразить в компоненте TMemo.

2. С помощью таблицы TStringGrid ввести элементы матрицы и подсчитать сумму квадратов его столбцов. Организовать по выбору расчет наибольшей суммы элементов столбцов или наибольшей суммы элементов строк. Результат отобразить в компоненте TEdit.

3. Рассчитать средние параметры группы студентов. Исходные данные: фамилии студентов, количество баллов, набранных каждым студентом при тестировании, рост и вес каждого студента. Рассчитать средний балл, средний вес и средний рост студентов в группе.

4. Представить в виде таблицы итоги деятельности четырех агентов фирмы по сбыту n-й продукции. Исходной информацией считать фамилии агентов и объем продаж по кварталам. Рассчитать объем продаж каждого агента за год и вывести фамилию агента, имеющего наилучший результат.

5. Представить в виде таблицы ведомость сведений о пропусках занятий студентами. Исходной информацией является: фамилия, номер группы, количество часов, пропущенных по уважительной и неуважительной причине. Получить список студентов, пропустивших более ХХХ часов по неуважительной причине. ХХХ – вводимая величина.

 

ЛАБОРАТОРНАЯ РАБОТА №4

ГЛАВНОЕ МЕНЮ ФОРМЫ. ВСПОМОГАТЕЛЬНОЕ МЕНЮ. СТАНДАРТНЫЕ КНОПКИ. ВИЗУАЛЬНЫЕ КОМПОНЕНТЫ СТАНДАРТНЫХ ДИАЛОГОВ WINDOWS – ИНТЕРФЕЙСА.

Теоретические сведения

Любое современное приложение имеет меню. Меню обеспечивает стандартный и удобный доступ к функциям приложения и структурирует их в однородные группы. Главное меню формы определяет компонент класса TMainMenu.На форму можно поместить сколько угодно объектов этого класса, но отображаться в полосе меню в верхней части формы будет только тот из них, который указан в свойстве Menuформы.

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

Вызов диалоговой формы во время работы приложения осуществляется методом Execute, возвращающим результат логического типа. Если пользователь, например, выбрал файл и нажал кнопку ОК, то функция возвращает True.

Для того чтобы добавить в проект другие файлы, нужно осуществить следующие действия Project\Add to Project (Shift+F11).

Ход работы

Загрузите систему визуального программирования Delphi.

2. Поместите компонент Panel1 на форму, задайте его свойству Align значение AlClient. Свойству Caption и Name формы придайте значение Lab4. Сохраните вашу программу в папку Lab4 под индексом 4 (Unit4 и Project4).

Компонент Image.

Установите на форму компонент ТImage(страница Additional). Установите фиксацию компонента по всем четырем сторонам панели с помощью свойств Anchors.СвойствоPictureслужит контейнером изображения. В инспекторе объектов в правой части строки этого свойства вызывается диалоговая панель графического файла. Выберите понравившуюся Вам картинку из подкаталога Images/Splash.Свойству Stretchприсвойте значение True. Это свойство разрешает/запрещает изменять размер изображения так, чтобы оно в целом заполнило клиентскую область компонента.

Главное меню формы.

Для компонента TMainMenu вызовите Menu Designer, щелкнув по кнопке в правой половине строки Items инспектора объектов. Создайте опции меню, аналогичные надписи на кнопках Button формы. Текст опции вводится в строке Caption окна инспектора объектов. Опции меню разделите чертой, для чего назовите очередной элемент меню именем «-».

Главное меню формы должно иметь вид:

Режим работы Выход

Лаб. раб. №2

Лаб. раб. №3

Шаблон формы.

Свойству Name пунктов меню задайте значения: «аааааа0»(Режим работы); «аааааа1»(Лаб.раб.№2); «аааааа2»(Лаб.раб.№3). Для пункта меню Выход свойству Name задайте значение «аааааа3». Это необходимо сделать для того, чтобы воспользоваться уже имеющимся обработчиком события Button1Click.

В обработчик события внесите дополнения (дополнения подчеркнуты):

procedure Tlab4.aaaaaa1Click (Sender: TObject);

var b:byte; a:string[8];

begin

a:= (Sender As TComponent).Name;

b:= StrToInt(Copy(a,7,1));

case b of

1: begin

if lab2 = Nil then lab2:= Tlab2.Create(Self);

lab2.Show;

end;

2: begin

if lab3 = Nil then lab3:= Tlab3.Create(Self);

lab3.Show;

end;

3: lab4.Close;

end; end;

Всем пунктам меню придайте функциональность (назначьте процедуру aaaaaa1Click для aaaaaa2Click и aaaaaa3Click).

Вспомогательное меню.

1. Создайте опции для компонента TPopupMenu.Названия опций вспомогательного меню: картинка, шрифт, цвет.

2. Чтобы связать щелчок правой кнопки мыши, указав компонент, с раскрытием вспомогательного меню в свойство PopupMenuкомпонента Panel1необходимо поместить имя компонента-меню. Можно выбрать имя вспомогательного меню из списка свойств PopupMenu.

Диалоги.

1. Поместите на форму компоненты панели Dialogs: OpenPictureDialog1; ColorDialog1; FontDialog1.

2. Для соответствующих пунктов вспомогательного меню создайте обработчики событий:

Для пункта меню Шрифт:

procedure Tlab4.N8Click (Sender: TObject);

begin

if FontDialog1.Execute then Panel1.Font := FontDialog1.Font;

end;

Для пункта меню Картинка:

procedure Tlab4.N6Click (Sender: TObject);

begin

if OpenPictureDialog1.Execute and FileExists(OpenPictureDialog1.FileName) then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

 

Для пункта меню Цвет:

procedure Tlab4.N10Click (Sender: TObject);

begin

if ColorDialog1.Execute then Panel1.Color := ColorDialog1.Color;

end;

3. Для проверки правильности ваших действий осуществите прогон программы.

4. На форму Лабораторная работа №2поместите компоненты: MainMenu1; SaveDialog1; OpenDialog1.

5. Создайте опции главного меню формы Lab2: