Компонент StringGrid

Для ввода (вывода) массива удобно использовать компонент StringGrid. Значок компонента StringGrid находится на вкладке Additional.

Компонент StringGrid представляет собой таблицу, ячейки которой содержат строки символов.
В таблице перечислены некоторые свойства компонента StringGrid.

Свойство

Определяет

Name Имя компонента. Используется в программе для доступа к свойствам компонента
ColCount Количество колонок таблицы
RowCount Количество строк таблицы
Cells Соответствующий таблице двумерный массив. Ячейка таблицы, находящаяся на пересечении столбца номер Col и строки номер Row определяется элементом Cells[Col, Row]
FixedCols Количество зафиксированных слева колонок таблицы. Зафиксированные колонки выделяются цветом и при горизонтальной прокрутке таблицы остаются на месте
FixedRows Количество зафиксированных сверху строк таблицы. Зафиксированные строки выделяются цветом и при вертикальной прокрутке таблицы остаются на месте
Options.goEditing Признак допустимости редактирования содержимого ячеек таблицы. True – редактирование разрешено, False – запрещено
Options.goTab Разрешает (True) или запрещает (False) использование клавиши Таb для перемещения курсора в следующую ячейку таблицы
Options.goAlways-ShowEditor Признак нахождения компонента в режиме редактирования. Если значение свойства False, то для того, чтобы в ячейке появился курсор, надо начать набирать текст, нажать клавишу F2 или сделать щелчок мышью
DefaultColWidth Ширину колонок таблицы
DefaultRowHeight Высоту строк таблицы
GridLineWi-dth Ширину линий, ограничивающих ячейки таблицы
Left Расстояние от левой границы поля таблицы до левой границы формы
Top Расстояние от верхней границы поля таблицы до верхней границы формы
Height Высоту поля таблицы
Width Ширину поля таблицы
Font Шрифт, используемый для отображения содержимого ячеек таблицы
ParentFont Признак наследования характеристик шрифта формы
Пример:
procedure TForml.ButtonlClick(Sender: TObject);
var
a : array[1..5] of integer;
summ: integer;
sr: real;
i: integer;
begin
for i:= 1 to 5 do
if Length(StringGridl.Cells[i-1, 0]) <>0
then
a[i] := StrToInt(StringGridl.Cells[i-1,0])
else
a[i] := 0;
summ := 0;
for i :=1 to 5 do
summ := summ + a[i]; sr := summ / 5;
Label2.Caption :=’Сумма элементов: ‘ + IntToStr(summ)+ #13+ ‘Среднее арифметическое: ‘ + FloatToStr(sr);
end;
Добавить комментарий