 |
Procedure TForm1.Button1Click(Sender: TObject); begin
|
|
|
|
Procedure TForm1. Button1Click(Sender: TObject); begin
Button1. Width: =40;
end;
Object Inspector является удобным способом выполнения в режиме проектирования того, что может быть осуществлено программным путем в режиме выполнения. Заданные свойства объектов считаются начальными и присутствуют на момент запуска программы. Более того, у компонента могут быть свойства, не отображаемые в окне Инспектора Объектов, которые доступны только в момент выполнения программы.
2. Лабораторное задание
Создать и отладить приложение в ИСР Delphi по заданию, полученному от преподавателя.
3. Порядок выполнения задания
1. Изучить теоретическую часть.
2. Войти в ИСР Delphi.
3. Создать новое приложение (Проект).
4. Поместить на форму компоненты TMainMenu и TPopupMenu со
страницы Standart, компонент TStringGrid со страницы Additional.
5. Используя свойства, отображенные в Инспекторе Объектов,
привести интерфейс программы к более удобному для работы виду. Например, Свойству Align выставить значение AlClient, Свойству DefaultRowHeight - значение 20. Поменять по своему усмотрению цвет и шрифт.
6. Щелкнуть два раза мышью, на расположенном на форме
компоненте TMainMenu создать пункт меню под названием & Файл (& означает, что буква Ф будет подчеркнута и пункт этого меню можно выбрать при нажатии клавиш < ALT + Ф> ). В меню Файл поместить пункты & Сохранить, & Загрузить, Вы& ход.
7. Повторить пункт 6 для TPopupMenu. Чтобы создать подменю в
компоненте TPopupMenu, необходимо выбрать соответствующий пункт в меню и, нажав на нем правой кнопкой мыши, выбрать пункт Create Submenu.
8. Компоненту TStringGrid задать свойство PopupMenu. В этом
свойстве необходимо указать имя компонента TPopupMenu. По умолчанию это имя PopupMenu1 и его можно выбрать из выпадающего списка. Теперь во время работы программы при нажатии на поле компонента TStringGrid будет выпадать меню, созданное с помощью компонента PopupMenu.
|
|
|
9. Выбрать страничку событий формы Form1. Это можно сделать
в верхней части Инспектора Объектов. Дважды щелкнуть мышью на строке события OnCreate. Задать имена колонкам TStringGrid, используя следующие команды:
StringGrid1. Cells[0, 0]: ='1ая колонка';
StringGrid1. Cells[1, 0]: ='2ая колонка'; и т. д.
10. Щелкнуть на пункте меню Файл | Выход (находящиеся на
форме). Написать между операторными скобками Begin и End оператор Close;.
11. Просмотреть название в заголовке процедуры, созданной в
пункте 10 (например, заголовок имеет следующий вид: procedure TForm1. N4Click(Sender: TObject)). Выбрать компонент TPopupMenu, в нем пункт меню Файл | Выход и на событие OnClick выбрать название процедуры, созданной в пункте 10. Соответственно название будет N4Click. Таким образом, можно увидеть, что в ИСР Delphi одну и ту же процедуру можно вызывать в различных местах программного кода.
12. Откомпилировать и запустить программу на выполнение.
13. Во время выполнения программы может получиться так, что
текст заголовков в таблице StringGrid, полностью не поместится в предоставленное для него место. В этом случае следует найти нужное свойство и изменить размер столбцов.
14. Создать в компоненте TMainMenu рядом с пунктом меню Файл
пункт Генерация. Этому пункту на событие OnClick написать следующий программный код:
// Устанавливается количество столбцов
StringGrid1. ColCount: = 3;
// Устанавливается количество строк
StringGrid1. RowCount: = 2;
// Заголовки по строкам убираются
StringGrid1. FixedCols: = 0;
//Задание названий заголовков
StringGrid1. Cells[0, 0]: ='Число A';
StringGrid1. Cells[1, 0]: ='Число B';
StringGrid1. Cells[2, 0]: ='Сравнение А и B';
//Увеличение 3-го столбца по ширине
//(ColWidths[2]-в скобках 2 т. к. нумерация ведется от 0)
StringGrid1. ColWidths[2]: = 100;
// Генерация случайных чисел
// Функция IntToStr() переводит число из формата целого числа в строковый формат
|
|
|
Randomize;
StringGrid1. Cells[0, 1]: = IntToStr(random(100));
StringGrid1. Cells[1, 1]: = IntToStr(random(100));
// Сравнение случайных чисел
if StrToInt(StringGrid1. Cells[0, 1]) > StrToInt(StringGrid1. Cells[1, 1]) then
StringGrid1. Cells[2, 1]: = StringGrid1. Cells[0, 1]+'> '+StringGrid1. Cells[1, 1]
else
StringGrid1. Cells[2, 1]: = StringGrid1. Cells[0, 1]+'< '+StringGrid1. Cells[1, 1]
15. Откомпилировать и запустить программу на выполнение.
16. Просмотреть выполнение пункта Генерация.
17. Выполнить программу по шагам. Проследить за изменением
ячеек StringGrid1. Cells[0, 1] и StringGrid1. Cells[1, 1] с помощью пункта ИСР Delphi View | Debug Windows | Watches.
18. Установить точку останова (Breakpoint) на строке Randomize;.
Запустить программу в обычном режиме, после того как программа дойдет до точки останова, пройти ее по шагам, следя за изменением переменных ячеек с помощью Watches. Следует отметить, что при выполнении программы по шагам за значением переменной можно следить, наводя на нее в строке программного кода, мышью.
Лабораторная работа № 2
ТЕХНОЛОГИЯ ПРОГРАММИРОВАНИЯ ВВОДА-ВЫВОДА ИНФОРМАЦИИ ПРИ РАБОТЕ С ФАЙЛАМИ ДАННЫХ
Цель работы: овладение технологией программирования файловых структур данных; проектирование структуры файла, ввод данных в файл, модификация данных, вывод информации из файла.
|
|
|
