Компьютерные технологии. Типовое задание Delphi

IDM 2.0 company
Delphi
Цель работы:
Ознакомиться с возможностями системы Delphi.
Научиться создавать приложения с графическим интерфейсом пользователя для выполнения конкретных математических задач.

IDM 2.0 company
Запустите Delphi.
Создадим приложение осуществляющее поиск минимального и максимального элемента массива.
Приложение должно включать следующие возможности:
Интерфейс приложения должен содержать формулировку задачи
Интерфейс приложения должен иметь поле для ввода имени файла содержащего массив
Интерфейс приложения должен иметь кнопку «Старт» для запуска процесса вычисления
Интерфейс приложения должен иметь поле для отображения загруженного массива
Интерфейс приложения должен иметь поле для отображения результата

IDM 2.0 company
По умолчанию создаётся проект Project1 с двумя открытыми окнами. Окно Form1 служит для конструирования визуального интерфейса программы, а окно Unit1 для написания кода.
Нажмите на окно формы и измените его свойства в окне Object Inspector:
Автопрокрутка. AutoScroll>False. Цвет фона. Color>clSilver. Высота. Height>300. Влево. Left>400. Вверх. Top>250. Ширина. Width>566.
Создайте первый элемент в окне – надпись Label1 «Типовое задание»
Перенесите на окно формы из палитры компонентов элемент Label1 и измените его свойства в окне Object Inspector:
Label1: Выравнивание текста. Alignment>taCenter. Авторазмер. AutoSize>False. Заголовок. Caption>Типовое задание. Цвет фона. Color>clBlack. Шрифт. Font>Белый>14. Высота. Height>25.
Влево. Left>0. Вверх. Top>0. Ширина. Width>550.
Если запустить программу, то появиться окно как показано на рисунке. Для запуска программы щёлкнуть по пункту меню Run.

IDM 2.0 company
Добавьте надписи Label2 «Задача: нахождение минимального и максимального элемента массива.»,
Label2: Выравнивание текста. Alignment>taCenter. Авторазмер. AutoSize>False. Заголовок. Caption>Задача: Нахождение минимального и максимального элемента массива. Цвет фона. Color>clSilver. Шрифт. Font>Чёрный>9.
Высота. Height>25. Влево. Left>0. Вверх. Top>25. Ширина. Width>550.
Label3 «Введите имя текстового файла:»
Label3: Выравнивание текста. Alignment>taCenter. Авторазмер. AutoSize>False. Заголовок. Caption>Введите имя текстового файла:. Цвет фона. Color>clLime. Шрифт. Font>Белый>10.
Высота. Height>20. Влево. Left>0. Вверх. Top>50. Ширина. Width>273.
и поле Edit1 для ввода имени файла.
Edit1: Авторазмер. AutoSize>False. Заголовок. Text>V_A.txt. Шрифт. Font>Чёрный>10.
Высота. Height>20. Влево. Left>0. Вверх. Top>70. Ширина. Width>273.

IDM 2.0 company
Добавьте надписи Label4 «Входной массив A:»,
Label4: Выравнивание текста. Alignment>taCenter. Авторазмер. AutoSize>False. Заголовок. Caption> Входной массив A:. Цвет фона. Color>clRed. Шрифт. Font>Белый>10.
Высота. Height>20. Влево. Left>0. Вверх. Top>96. Ширина. Width>273.
Label5 «Результат:».
Label5: Выравнивание текста. Alignment>taCenter. Авторазмер. AutoSize>False. Заголовок. Caption>Результат:. Цвет фона. Color>clBlue. Шрифт. Font> Белый>10.
Высота. Height>20. Влево. Left>277. Вверх. Top>96. Ширина. Width>273.

IDM 2.0 company
Добавьте поле для вывода входного массива Memo1,
Memo1: Выравнивание текста. Alignment>taLeftJustify. Заголовок. Lines>Пусто. Шрифт. Font>Чёрный>10.
Только чтение. ReadOnly>True.
Высота. Height>145. Влево. Left>0. Вверх. Top>116. Ширина. Width>273.
а также поле для вывода результата работы программы Memo2.
Memo2: Выравнивание текста. Alignment>taLeftJustify. Заголовок. Lines>Минимальный элемент массива А: Пусто. Максимальный элемент массива А: Пусто. Шрифт. Font>Чёрный>10.
Только чтение. ReadOnly>True.
Высота. Height>145. Влево. Left>277. Вверх. Top>116. Ширина. Width>273.

Пришло время добавить кнопку Panel1 «Старт» по нажатии на которую должно происходить чтение массива из файла указанного в поле Edit1, вывод считанного массива в поле Memo1, выполнение процедуры поиска минимального и максимального и вывод получившегося результата в поле Memo2.
Panel1 : Alignment>taCenter. Авторазмер. AutoSize>False. Заголовок. Caption>Старт. Цвет фона. Color>clLime. Шрифт. Font>Белый>14.
Высота. Height>40. Влево. Left>277. Вверх. Top>50. Ширина. Width>273.
Таким образом при запуске приложения должно открываться окно представленное на рисунке
Но при нажатии на кнопку «Старт» ничего не происходит, потому что не описана процедура события, которая должна выполняться при нажатии.
IDM 2.0 company

Дважды щёлкните левой кнопкой мыши по кнопке «Старт» в окне формы. Откроется окно кода с
заготовкой процедуры TForm1.Panel1Click(Sender: TObject);, в которую нужно написать программу.
Приступим к программированию события кнопки Panel1 «Старт».
IDM 2.0 company

IDM 2.0 company

IDM 2.0 company

IDM 2.0 company