Порядок выполнения работы
Часть 1. Использование компонента tListBox
1.Открыть новое приложение с помощью команды File| New Application.
2.Сохраните проект в вашем рабочем каталоге, выполнив команду меню File|Save Project As.
3.Из страницы Standard на Form1 поместить компоненты Edit1:TEdit; Button1, Button2:TButton, ListBox1,ListBox2:TListBox.
4.Установить значение свойства Text компонента Edit1 – пустая строка.
5.Установить для левой кнопки значение свойства Caption равным ‘Ввод’, а для правой- ‘Решение’.
6.В раздел interface модуля вставить описание массива и используемых переменных
a:array[1..10] of integer;
i,min,max,imin,imax:integer;
7.Выполнить двойной щелчок по форме Form1, в результате чего будет создана
заготовка события OnCreate для формы, возникающего в момент создания формы.
Размещение операторов в этом обработчике во многих случаях эквивалентно размещению операторов в секции initialation модуля. Поместить там следующие строки
i:=0;
ListBox1.Clear;
ListBox2.Clear;
8.Выполнить двойной щелчок по кнопке «Ввод» и в обработчик события OnClick поместим следующий код:
ListBox1.Items.Add(Edit1.Text);
i:=i+1;
a[i]:=StrToInt(Edit1.Text);
Edit1.SetFocus;
9.Выполнить двойной щелчок по кнопке «Решение» и в обработчик события OnClick поместим следующий код:
max:=a[1]; imax:=1;
min:=a[1]; imin:=1;
for i:=2 to 10 do
begin
if max<a[i] then
begin max:=a[i]; imax:=i end;
if min>a[i] then
begin min:=a[i]; imin:=i end;
end;
a[imax]:=min;
a[imin]:=max;
for i:=2 to 10 do
ListBox2.Items.Add(IntToStr(a[i]));
10.Для удобства работы с приложением создать обработчик события OnKeyDown для строки ввода Edit1, в котором при нажатии на клавишу Enter фокус ввода будет переводиться на кнопку «Ввод»:
if key=13 then Button1.SetFocus
11.Запустить программу. Для ввода целых чисел используем строку ввода Edit1. Ввод каждого числа завершаем нажав дважды клавишу Enter, либо нажав кнопку «Ввод».Введенные числа отображаются в первом списке. После нажатия на кнопку «Решение» получим результат во втором списке.
Часть 2. Использование компонента tComboBox
1.Открыть новое приложение с помощью команды File| New Application.
2.Сохраните проект в вашем рабочем каталоге, выполнив команду меню File|Save Project As.
3.Из страницы Standard на Form1 поместить компоненты Button1, Button2:TButton, ComboBox1,ComboBox2:TComboBox.
4.Установить свойство DropDownCount для компонентов ComboBox1 и ComboBox2 равным 10.
6. Установить значение свойства Text компонентов ComboBox1 и ComboBox2– пустая строка.
7.В раздел interface модуля вставить описание массива и используемых переменных
a:array[1..10] of integer;
i,min,max,imin,imax:integer;
8.Установить следующий обработчик события OnCreate для формы:
i:=0;
ComboBox1.Clear;
ComboBox2.Clear;
ComboBox1.TabOrder:=0;
9.Выполнить двойной щелчок по кнопке «Ввод» и в обработчик события OnClick поместим следующий код:
ComboBox1.Items.Add(ComboBox1.Text);
i:=i+1;
a[i]:=StrToInt(ComboBox1.Text);
ComboBox1.SetFocus;
10. Выполнить двойной щелчок по кнопке «Решение» и в обработчик события OnClick поместим следующий код:
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
ComboBox2.Items.Add(IntToStr(a[k]));
ComboBox2.DroppedDown:=true;
11. Для удобства работы с приложением создать обработчик события OnKeyDown для списка ComboBox1, в котором при нажатии на клавишу Enter фокус ввода будет переводиться на кнопку «Ввод»:
if key=13 then Button1.SetFocus
12.Запустить программу. Для ввода целых чисел используем список ComboBox1. Ввод каждого числа завершаем нажав дважды клавишу Enter, либо нажав кнопку «Ввод».Введенные числа отображаются в первом списке. После нажатия на кнопку «Решение» получим результат во втором списке.