Home » Компонент StringGrid
Компонент StringGrid
Автор arsenikrmaks На чтение 2 мин
|
Для ввода (вывода) массива удобно использовать компонент 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;
|