Компонент TListBox - на вкладке Standard
ListBox1.Clear - очистить список.
ListBox1.Items.Add(s) - добавить новую строку в список,
заполнить ее значением строковой переменной s.
ListBox1.Items.Strings[i]; - получить строку с номером i,
нумерация начинается с нуля.
ListBox1.Selected[i] := True; - выделение i-го элемента
списка.
ListBox1.Count; - количество элементов списка.
Компонент TCheckBox - на вкладке Standard
Основные свойства:
Caption - надпись около квадратного поля с флагом, или отметкой.
Checked - принимает два значения:
True - выбрано,
False - не выбрано.
Компонент TRadioButton - на вкладке Standard
Основные свойства:
Caption - надпись около круглого поля с точкой, или отметкой.
Checked - принимает два значения:
True - выбрано,
False - не выбрано.
Об отметках
Основные упражнения не отмечены никакими специальными знаками, их выполнения достаточно для удовлетворительной оценки. Дополнительные упражнения отмечены "звездочками", их выполнение необходимо для получения повышенной оценки.
"5" - в отчете выполнены все основные упражнения, дополнительно выполнены упражнения с одной и двумя "звездочками".
"4" - в отчете выполнены все основные упражнения дополнительно выполнены упражнения с одной "звездочкой".
"3" - в отчете выполнены все основные упражнения.
Упражнения
1. Вывести элементы одномерного массива в один из компонентов
ListBox1 или ListBox2, в зависимости от того, какой из пунктов
выбран: RadioButton1 или RadioButton2.
Настройка компонентов:
В инспекторе объектов
для компонента RadioButton1 свойство
Caption = Здесь
Checked = True
для компонента RadioButton2 свойство
Caption = Там
Checked = False
Пример интерфейса
Пример программы
// Глобальные константы.
const
A = -15;
B = 25;
N_MAX = 5;
// Глобальные переменные.
var
z : array [0..N_MAX - 1] of Integer;
procedure TForm1.Button1Click(Sender: TObject);
var
i : Byte;
begin
Randomize;
ListBox1.Clear;
ListBox2.Clear;
for i := 0 to N_MAX - 1 do begin
z[i] := Random(B - A + 1) + A;
if RadioButton1.Checked then begin
ListBox1.Items.Add(IntToStr(z[i]));
end;
if RadioButton2.Checked then begin
ListBox2.Items.Add(IntToStr(z[i]));
end;
end;
end;
2. Указать направление ветра с помощью компонентов
TRadioButton. Выбранное направление отметить с помощью
компонента TShape.
Задание для самостоятельного выполнения: в примере реализованы
направления от севера до юго-востока - добавьте возможность
указывать направления с юга по северо-запад.
Настройка компонентов:
В инспекторе объектов
для компонентов Shape1 и Shape3 свойство
Shape = stCircle
для компонентов Shape2 и Shape4 свойство
Shape = stDiamond
для компонента RadioButton1 свойство
Caption = Север
и т.д.
Пример интерфейса
Пример программы
procedure TForm1.Button1Click(Sender: TObject);
begin
if RadioButton1.Checked then begin
Shape1.Brush.Color := clLime;
Shape2.Brush.Color := clWhite;
Shape3.Brush.Color := clWhite;
Shape4.Brush.Color := clWhite;
end;
if RadioButton2.Checked then begin
Shape1.Brush.Color := clWhite;
Shape2.Brush.Color := clLime;
Shape3.Brush.Color := clWhite;
Shape4.Brush.Color := clWhite;
end;
if RadioButton3.Checked then begin
Shape1.Brush.Color := clWhite;
Shape2.Brush.Color := clWhite;
Shape3.Brush.Color := clLime;
Shape4.Brush.Color := clWhite;
end;
if RadioButton4.Checked then begin
Shape1.Brush.Color := clWhite;
Shape2.Brush.Color := clWhite;
Shape3.Brush.Color := clWhite;
Shape4.Brush.Color := clLime;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Shape1.Brush.Style := bsSolid;
Shape1.Brush.Color := clLime;
Shape2.Brush.Style := bsSolid;
Shape2.Brush.Color := clWhite;
Shape3.Brush.Style := bsSolid;
Shape3.Brush.Color := clWhite;
Shape4.Brush.Style := bsSolid;
Shape4.Brush.Color := clWhite;
end;
3. Для элементов одномерного целочисленного массива возможны
одно или два преобразования:
1) возведение в квадрат,
2) умножение на -1.
Преобразования выбирают
с помощью компонентов TCheckBox. Исходные элементы массива,
до выполнения преобразований, выводят в ListBox1,
а после преобразований - в ListBox2.
Настройка компонентов:
В инспекторе объектов
для компонента CheckBox1 свойство
Caption = X^2
для компонента CheckBox2 свойство
Caption = -1 * X
Пример интерфейса
Пример программы
// Глобальные константы.
const
A = -15;
B = 25;
N_MAX = 5;
// Глобальные переменные.
var
z : array [0..N_MAX - 1] of Integer;
procedure TForm1.Button1Click(Sender: TObject);
var
i : Byte;
begin
Randomize;
ListBox1.Clear;
ListBox2.Clear;
for i := 0 to N_MAX - 1 do begin
z[i] := Random(B - A + 1) + A;
ListBox1.Items.Add(IntToStr(z[i]));
end;
for i := 0 to N_MAX - 1 do begin
if CheckBox1.Checked then begin
z[i] := z[i] * z[i]
end;
if CheckBox2.Checked then begin
z[i] := -1 * z[i];
end;
ListBox2.Items.Add(IntToStr(z[i]));
end;
end;
4.* В ListBox1 поместить список имен файлов с изображениями
в формате JPEG, которые находятся на диске в папке с приложением.
При нажатии на кнопки Вперед или Назад выделяется очередное
имя файла в списке, соответствующее изображение загружается
в компонент TImage, а имя файла помещается под ним
с помощью компонента TLabel.
5.** В программе объявлена константа-массив,
элементы которого - строки. При щелчке по кнопке
строки из массива загружаются в компонент TListBox.
Если ChekBox1 отмечен, то напротив каждой строки ставится
порядковый номер.