Стр. 286 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
286
begin
//увеличение количества строк таблицы
StringGrid1.RowCount:=StringGrid1.RowCount+1;
//очистка ячеек последней строки
StringGrid1.Rows[StringGrid1.RowCount-1].Clear;
end;
12. В инспекторе объектов для пункта PopupMenu1 Удалить строку
(N10) создайте процедуру N10Click для обработки события OnClick.
//выполняется при щелчке мышью
//по пункту меню Удалить строку
procedure TForm1.N10Click(Sender: TObject);
var
//счетчик
i:word;
//действие пользователя
r:Integer;
begin
//диалоговое окно
r:=MessageDlg('Удалить строку???',mtInformation,mbOKCancel,0);
//если пользователь нажал кнопку OK
if r=mrOk then
with StringGrid1 do
begin
//если удаляемая строка не последняя
if Row<RowCount-1 then
//обмен местами i и i+1 строки
for i:=Row to RowCount-2 do
Rows[i]:=Rows[i+1];
//если количество строк меньше или равно двум
if RowCount<=2 then
//очистка последней строки
Rows[RowCount-1].Clear
else
//удаление последней строки
RowCount:=RowCount-1;
end;
end;
13. В инспекторе объектов для пункта PopupMenu1 Сортировка по воз-
растанию (N11) создайте процедуру N11Click обработчик события OnClick.
//выполняется при щелчке мышью
//по пункту меню Сортировка по возрастанию