Программирование в среде Delphi. Часть 2. Создание оконных приложений. Садовская О.Б. - 38 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

38
Пример 6. Найти сумму элементов целочисленной матрицы размера
4×4.
В следующей таблице приведены значения основных свойств компо-
нента StringGrid для проекта вычисления суммы элементов целочис-
ленной матрицы размера 4×4.
Свойство Значение
ColCount 4
RowCount 4
FixedCols 0
FixedRows 0
Options.goEditing True
DefaultColWidth 30
DefaultRowHeight 25
GridLineWidth 1
Маркируем командную кнопку Вычислить и создаём следующую
процедуру обработки события OnClick:
procedure TForm1.Button1Click(Sender: TObject);
var i, j, s:integer;
begin
s:=0;
for i:=0 to stringgrid1.colcount-1 do
for j:=0 to stringgrid1.rowcount-1 do
s:=s + strtoint(stringgrid1.cells[i, j]);
label3.caption:=inttostr(s)
end; 
                                    38
Прим ер6. Н а йти су м м у э
                           лем ен тов целочислен н ой м а т рицы ра зм ера
4×4.




В след у ю щей т а б лице привед ен ы зн а чен ия осн овн ых свойст в ком по-
н ен та StringGrid д ля проект а вычислен ия су м м ы э   лем ен т ов целочис-
лен н ой м а трицы ра зм ера 4×4.
                           С вой ство        Знач ение
                           ColCount                 4
                           RowCount                 4
                           FixedCols                0
                          FixedRows                 0
                       Options.goEditing          True
                       DefaultColWidth             30
                      DefaultRowHeight             25
                        GridLineWidth               1
М а ркиру ем ком а н д н у ю кн опку       В ычи сли т ь и созд а ём   след у ю щу ю
процед у ру об ра б отки соб ыт ия OnClick:
     procedure TForm1.Button1Click(Sender: TObject);
     var i, j, s:integer;
     begin
     s:=0;
     for i:=0 to stringgrid1.colcount-1 do
     for j:=0 to stringgrid1.rowcount-1 do
     s:=s + strtoint(stringgrid1.cells[i, j]);
     label3.caption:=inttostr(s)
     end;

Страницы