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

Создадим программу для магазина. В таблицу можно добавлять, удалять и покупать товар со склада.

Поставьте на форму следующие компоненты: StringGrid1 (SG), 5 меток Label с заголовками «Код товара», «Название», «Цена», «Количество», «Введите количество покупаемого товара», 5 строк ввода Edit, 3 кнопки: «Купить», «Добавить товар», «Удалить товар», «Выход».

В таблице понадобится фиксированная строкадля названия колонок. Поэтому свойству FixedCols в Инспекторе Объектов присвоим значение 0.

Свойству ColCount зададим значение 4, а RowCount зададим значение 2, так как сначала товаров не будет.

Опишем процедуру заполнения фиксированных ячеек (процедура по созданию формы):

procedure TForm1.FormCreate(Sender: TObject);

begin

SG.Cells[0,0]:='Код товара';

SG.Cells[1,0]:='Название';

SG.Cells[2,0]:='Цена';

SG.Cells[3,0]:='Количество';

end;

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

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

SG.Cells[0,SG.row]:=edit1.Text;

SG.Cells[1,SG.row]:=edit2.Text;

SG.Cells[2,SG.row]:=edit3.Text;

SG.Cells[3,SG.row]:=edit4.Text;

SG.RowCount:=SG.RowCount+1;

// увеличиваем количество строк в таблице

SG.row:=SG.row+1;// делаем текущей следующий ряд

end;

StringGrid1.row – текущая строка, StringGrid1.col – текущий столбец.

Самостоятельно напишите процедуру для кнопок «Купить товар» и «Удалить товар», учитывая введенное количество товара.

15.4. Самостоятельная работа

С оздать проект, который содержит список клиентов. Пользователь имеет возможность ввести и отсортировать этот список.

15.5. Самостоятельная работа

Создайте проект для поиска минимального, максимального и заданного элементов в двумерном массиве. Если элемент найден, то его индекс выводится в метку. Для этого на форме расположите компонент StrinGrid (Sg), состоящий из 3 строк и 5 столбцов; три компонента RadioButton (Rb1, Rb2, Rb3) для указания выбора поиска.

Для осуществления поиска заданного элемента массива, используем компонент Edit, который доступен только тогда, когда ищем заданный элемент.

Глава XVI.Страница Dialogs

16.1. Стандартные диалоговые окна Windows

В Delphi имеются 10 элементов, находящихся на странице Dialogs палитры компонентов. Они реализуют диалоги общего назначения.

OpenDialog – выбор открываемого файла

SaveDialog – выбор сохраняемого файла

OpenPictureDialog – выбор открываемого графического файла

SavePictureDialog – выбор сохраняемого графического файла

FontDialog – настройка параметров шрифта

ColorDialog – выбор цвета

PrintDilog – вывод на принтер

PrinterSetupDialog – выбор принтера и настройка его параметров

FindDialog – ввод строки текста для поиска

ReplaceDialog – ввод строк текста для поиска и замены.

Для вызова любого стандартного диалога используется метод Execute – функция, которая создает и показывает на экране диалоговое окно. Вызов этого метода обычно располагается внутри обработчика какого-либо события. Execute – логическая функция. При закрытии диалога кнопкой ОК она возвращает значение True, а при отмене диалога – значение False;

После закрытия стандартного диалога он возвращает через свои свойства значения, выбранные или установленные в процессе диалога. Например, при открытии файла возвращаемым значением является имя открываемого файла (OpenDialog1.Filename), а при выборе цвета – новый цвет (Colordialog1.color).