Рисунок 12.3 – Приложение с использованием сетки строк (StringGrid)

Для установки компонента TStringGrid на форму необходимо на странице Additional палитры компонентов щелкнуть мышью по пиктограмме . После этого щелкните мышью в нужном месте формы.

Захватывая кромки компонента, отрегулируйте его размер. В инспекторе объектов значения свойств ColCount и RowCount установите 2 (два столбца и две строки), а FixedCols и FixedRows установите 1 (один столбец и одна строка с фиксированной зоной). Так как компоненты StringGrid 2 и StringGrid 3 имеют только один столбец, то у них: ColCount =1, RowCount =2, FixedCols =0 и FixedRows =1. По умолчанию в компонент TStringGrid запрещен ввод информации с клавиатуры, поэтому необходимо свойство
Options->goEditing для компонентов StringGrid1 и StringGrid2 установить в положение t rue.

Текст программы приведен ниже.

# include < math . h >

int A [100][100], B [100], Y [100];  // Объявление массивов

int N;

void __fastcall TForm1::FormShow(TObject *Sender)

{ N=3; // Размерность массива

  Edit1->Text=FloatToStr(N);

//Задание числа строк и столбцов в таблицах

StringGrid1->ColCount=N+1;

  StringGrid1->RowCount=N+1;

  StringGrid2->RowCount=N+1;

  StringGrid3->RowCount=N+1;

// Ввод в левую верхнюю ячейку таблицы названия массива

StringGrid1->Cells[0][0]="Массив A:";

  StringGrid2->Cells[0][0]="Массив B:";

  StringGrid 3-> Cells [0][0]="Массив Y :";

//Заполнение верхнего и левого столбцов поясняющими подписями}

for (int i=1;i<=N; i++)

 { StringGrid1->Cells[0][i]=" i= "+IntToStr(i);

 StringGrid1->Cells[i][0]=" j= "+IntToStr(i);

 }

}

void __fastcall TForm1::Button1Click(TObject *Sender)

{ N = StrToInt ( Edit 1-> Text );

 // Задание числа строк и столбцов в таблицах

StringGrid1->ColCount=N+1;

 StringGrid1->RowCount=N+1;

 StringGrid2->RowCount=N+1;

 StringGrid3->RowCount=N+1;

// Заполнение верхнего и левого столбцов поясняющими подпи­сями

for (int i=1; i<=10; i++)

{StringGrid1->Cells[0][i]=" i= "+IntToStr(i);

 StringGrid1->Cells[i][0]=" j= "+IntToStr(i);

}

}

void __fastcall TForm1::Button2Click(TObject *Sender)

{ int i,j;

 float s;

// Заполнение массива А элементами из таблицы StringGrid 1

for (i=1; i<=N; i++)

 for (j=1; j<=N; j++)

A[i][j]=StrToFloat(StringGrid1->Cells[j][i]);

//Заполнение массива B элементами из таблицы StringGrid 2

for (i=1; i<=N; i++)

 B[i]=StrToFloat(StringGrid2->Cells[0][i]);

// Умножение массива А на массив В

for (i=1; i<=N; i++)

 { s=0;

      for (j=1; j<=N; j++)

s=s+A[i][j]*B[j];

 Y[i]=s;

 // Вывод результата в таблицу StringGrid3

 StringGrid3->Cells[0][i]=FloatToStrF(Y[i],ffFixed,6,2);

}

}

Контрольные вопросы

1. Что включает в себя инструментальная среда Си++ Builder ?

2. Каков состав проекта для разработки приложений?

3. Как размещаются компоненты на форме?

4. Какие настройки необходимо выполнить при работе с формой?

5. Какие действия необходимо выполнить для использования компонента TEdit?

6. Какие действия необходимо выполнить для использования компонента TLabel?

7. Какие действия необходимо выполнить для использования компонента TMemo?

8. Какие действия необходимо выполнить для использования компонента ТButton?

9. Какие действия необходимо выполнить для использования компонента TStringGrid?