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

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

Begin

Begin

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

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

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

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

end;

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

procedure TForm1.BitBtn1Click(Sender: TObject);

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 – текущий столбец.

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

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

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

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

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

Дата добавления: 2015-05-09