Обработка двухмерных массивов в среде Delphi

•значения свойств FixedCols и FixedRows равными 0, так как фиксированная зона не используется (рисунок 3);

•значения свойств ColCount (количество столбцов) и RowCount (количество рядов) равными 10, так как заданная матрица будет иметь максимальные размеры 10×10 (рисунок 3).

Для компонентов StringGrid1 в окне Инспектора объектов для изменения свойства Options необходимо выполнить следующие действия:

−щелкнуть по кнопке , расположенной слева от свойства

Options;

−в появившемся окне установить значение goEditing равное True, (по умолчанию значение goEditing равно False) (рисунок 4);

−щелкнуть по кнопке , расположенной слева от свойства

Options.

Аналогично в Инспекторе Объектов для компонента

StringGrid2 установить: значения свойств FixedCols и FixedRows

равными 0, значение свойства ColCount - равным 10, значение свойства RowCount - равным 1. Для свойства Options установить значение goEditing равное True.

В результате изменения свойств компонентов, форма будет иметь вид представленный на рисунке 15.

Рисунок 15 – Вид формы после изменения свойств компонентов (Вычисление суммы положительных элементов матрицы

по столбцам)

21

Этап 4. Создать обработчики событий.

4.1 В окне кода программы для кнопки Расчет необходимо выполнить следующие действия (рисунок 16):

• после строки

procedure TForm1.Button1Click(Sender: TObject);

поместить раздел описания переменных:

Var j, i, m, n : integer;

A : array[1..10,1..10] of real; Sum : real;

• между операторными скобками begin

end;

поместить фрагмент кода программы:

m := StrToInt(Edit1.Text);

n := StrToInt(Edit2.Text); StringGrid1.ColCount := m; StringGrid1.RowCount := n; StringGrid2.ColCount := m; StringGrid2.RowCount := 1; for j := 1 to m do

begin

for i := 1 to n do begin

A[j,i] := StrToFloat(StringGrid1.Cells[j-1,i-1]); end;

end;

for j := 1 to m do begin

Sum:=0;

for i := 1 to n do begin

if A[j,i] > 0 then Sum:=Sum + A[j,i]; end;

StringGrid2.Cells[j-1,0] := FloatToStrF(Sum,ffFixed,6,1); end;

22

8.С какого значения начинается нумерация столбцов и рядов таблицы?

9.Как осуществляется доступ к данным таблицы?

10.При доступе к данным какой параметр ячейки указывается первым, а какой – вторым?

11.Какой тип имеет свойство Cells компонента TStringGrid?

12.Какие свойства компонента TStringGrid хранят количество ячеек по каждому измерению?

РЕКОМЕНДУЕМАЯ ЛИТЕРАТУРА

1. Фаронов В.В. Delphi. Программирование на языке высокого уровня: Учебник для вузов / В.В. Фаронов. - С-Пб.: Питер, 2003. –

640с.

2.Керман К.Программирование и отладка в Delphi. Учебный курс / К. Керман. – М.: Вильямс, 2003. – 672 с.

3.Фаронов В.В. Delphi 6 : учебный курс / В.В. Фаронов. - М. :

Нолидж, 2001. – 672 с.

4.Галисеев Г.В. Программирование в среде Delphi 7. Самоучитель / Г.В. Галисеев. – М.: Вильямс, 2004. – 288 с.

5.Фленов М. Библия Delphi / М. Фленов. – С-Пб.: БХВ-

Петербург, 2008. – 800 с.

25