Практическая работа Delphi_08

Цель: В целочисленном массиве А(10) найти максимальный и минимальный элементы и поменять их местами.

План разработки программы

1. Для нового проекта создадим новую папку, например, D:\MyProject\ LBOX.

2. Откроем новый проект, используя команду главного меню File|New|Application.

3. Из страницы Standard поместим на Form1 следующие компоненты

4. С помощью Инспектора Объектов зададим в качестве значения для свойства Text компонента Edit1 пустую строку. Установим для левой кнопки значение свойства Caption равным ‘Ввод’, а для правой - 'Решение'.

5. В разделе interface вставим описание массива а и используемых переменных:

a: array[1..10] of integer;

i, min, max, imax, imin: integer;

6. Выполним двойной щелчок по форме Form1, в результате чего будет создана заготовка события OnCreate для формы, возникающего в момент создания формы. Размещение операторов в этом обработчике во многих случаях эквивалентно размещению операторов в секции initialization модуля. Поместим там следующие строки:

i:= 0;

ListBox1.Clear;

ListBox1.Clear;

7. Активизируем двойным щелчком кнопку «Ввод» и в заготовку обработчика события OnClick поместим следующий код:

ListBox1.Items.Add(Edit1.Text);

i := i + 1;

a[i] := StrToInt(Edit1.Text);

Edit1.SetFocus;

8. Активизируем кнопку «Решение» и в заготовку обработчика события поместим следующий текст:

max := a[1];

imax := 1;

min := a[1];

imin := 1;

for k:= 2 to 10 do

begin

if max < a[k] then

begin

max := a[k];

imax := k

end;

if min > a[k] then

begin

min := a[k];

imin := k

end;

end;

a[imax] := min;

a[imin] := max;

for k := 1 to 10 do

ListBox2.Items.Add(IntToStr(a[k]));

9. Для удобства работы с приложением создадим обработчик события OnKeyDown для строки ввода Edit1, в котором при нажатии на клавишу Enter фокус ввода будет переводиться на кнопку «Ввод»:

if key = 13 then Button1.SetFocus

10. Сохраним проект при помощи команды главного меню File|Save All.

11. Запустим программу с помощью клавиши F9. Для ввода целых чисел используем строку ввода Edit. Ввод каждого числа завершаем нажатием кнопки Enter либо щелчком мыши по кнопке «Ввод». Введенные числа отображаются в первом списке. После нажатия на клавишу «Решение» получим результат во втором списке.

Практическая работа Delphi_09

Цель: Создать программу, которая изменяет начертания, размер и цвет шрифта используя панели переключателей, а для изменения атрибутов шрифта (зачеркнутый, подчеркнутый) будет использовать список выключателей.

План разработки программы

1. Создадим новую папку, например D:\MyProject\RadioCheck.

2. Откроем новое приложение с помощью команды главного меню File|New| Application.

3. На форме Form1 разместим три компонента RadioGroup, один - CheckListBox, два - Label и один - Edit. Компонент CheckListBox1 берем со страницы Additional Палитры Компонентов, остальные - со страницы Standard.

4. Свойствам Caption компонентов RadioGroup1, RadioGroup2 и RadioGroup3 зададим значения 'Начертание', 'Размер' и 'Цвет' соответственно.

5. Войдем в свойство Items для каждого указанного выше компонента и щелкнем по кнопке с тремя точками. В появившемся окне String List editor следует ввести имена переключателей. Для каждого переключателя выделяется одна строка. Введем следующие данные.

RadioGroup1	RadioGroup2	RadioGroup3
обычный	8	черный
курсив	12	зеленый
полужирный	14	красный
полужирный курсив	24	синий

После завершения ввода нажмем кнопку ОК.

6. Для всех трех рассматриваемых компонентов установим свойство ItemIndex равным 0. Это означает, что в начале работы программы выделенным переключателем будет первый.

7. Для меток Label1 и Label2 свойство Caption установим равным 'Атрибуты' и 'Образец' соответственно.

8. Для компонента CheckListBox1 выберем свойство Items и введем названия выключателей:

Зачеркнутый

Подчеркнутый

9. Для компонента Edit1 установим свойство Text равным: 'АаВвБбФф'.

10. Перейдем к написанию обработчиков событий. Выполним двойной щелчок на компоненте RadioGroup1. В появившемся окне Редактора Кода введем операторы для обработчика события OnClick, которое возникает при выделении нового переключателя на панели:

if RadioGroup1.ItemIndex = 0 then Edit1.Font.Style := [ ];

if RadioGroup1.ItemIndex = 1 then Edit1.Font.Style := [fsItalic];

if RadioGroup1.ItemIndex = 2 then Edit1.Font.Style := [fsBold];

if RadioGroup1.ItemIndex = 3 then Edit1.Font.Style := [fsItalic,fsBold];

CheckListBox1ClickCheck(Self);

Вызов обработчика CheckListBox1ClickCheck, который будет создан чуть позже, позволит нам учесть характеристики стиля шрифта, задаваемые при помощи списка выключателей CheckListBox1.

11. Для компонента RadioGroup2 введем следующие операторы в обработчик события OnClick:

if RadioGroup2.ItemIndex = 0 then Edit1.Font.Size := 8;

if RadioGroup2.ItemIndex = 1 then Edit1.Font.Size := 10;

if RadioGroup2.ItemIndex = 2 then Edit1.Font.Size := 12;

if RadioGroup2.ItemIndex = 3 then Edit1.Font.Size := 14;

12. Для компонента RadioGroup3 введем такие операторы в обработчик события:

if RadioGroup3.ItemIndex = 0 then Edit1.Font.Color := clBlack;

if RadioGroup3.ItemIndex = 1 then Edit1.Font.Color := clGreen;

if RadioGroup3.ItemIndex = 2 then Edit1.Font.Color := clRed;

if RadioGroup3.ItemIndex = 3 then Edit1.Font.Color := clBlue;

13. Для компонента CheckListBox1 напишем обработчик события OnClickCheck, которое возникает, когда изменяется состояние какого-либо выключателя:

if CheckListBox1.Checked[0]

then Edit1.Font.Style := Edit1.Font.Style + [fsStrikeOut]

else Edit1.Font.Style := Edit1.Font.Style - [fsStrikeOut];

if CheckListBox1.Checked[1]

then Edit1.Font.Style := Edit1.Font.Style + [fsUnderline]

else Edit1.Font.Style := Edit1.Font.Style - [fsUnderline];

14. Сохраним приложение, выполнив команду главного меню File|Save All. Запустим приложение на выполнение с помощью команды Run|Run.

Выделяя различные переключатели или задавая тот или иной выключатель, будем изменять характеристики текста в строке ввода.

15. Сохранить и оттестировать программу и затем записать текст программы Unit1.pas в тетрадь.