Основные свойства компонента

1. ColCount - количество столбцов таблицы

2. RowCount - количество строк таблицы

3. FixedCols - количество фиксированных, непрокручиваемых столбцов, используемых для размещения надписей номеров строк.

4. FixedRows - количество фиксированных, непрокручиваемых строк, используемых для размещения надписей номеров столбцов.

5. DefaultColWidth – ширина стобца в пикселях

6. DefaultRowHight – высота стобца в пикселях

7. Color – цвет фона заполняемой части таблицы

8. FixedColor – цвет фона фиксированной части таблицы

9. GridLineWidth – толщина линий сетки таблицы в пикселях

10. ScrollBars – возможность отображения полос прокрутки

11. Options – параметры таблицы

Для сокращения записи при обращении к свойствам и методам объекта рекомендуется использовать оператор with ..do. Например,

with StringGrid1 do

begin

for J:=0 to RowCount-1 do //вывести номера строк

Cells[I,J] := IntToStr(J);

J:=0;

for I:=0 to ColCount-1 do //вывести номера столбцов

Cells[I,J]:= IntToStr(I);

end;

Пример выполнения работы

Рассчитать значения скорости v и пройденного пути s при свободном падений с нулевой начальной скоростью в зависимости от времени. Время изменяется от t_нач=0.1 сек до t_кон=0.9 сек с шагом h=0.2 сек. Расчет выполнить по формулам: v=g.t и s=g.t²/2, где g=9.81 м/с². На экран вывести время t с одной дробной цифрой, скорость v с тремя, а путь s с пятью дробными цифрами. Количество расчетных строк n=(t_кон - t_нач)/h + 1=(0.9 - 0.1)/0.2+1=5 .

Компонент	Свойство	Значение свойства
Form1	Caption	Расчёт и вывод таблицы значений функции
Label1	Caption	Исходные данные
	Font	Размер 14
Label2	Caption	t(нач)
	Font	Размер 14
Label3	Caption	t(кон)
	Font	Размер 14
Label4	Caption	Шаг
	Font	Размер 14
Edit1	Text	Пусто
Edit2	Text	Пусто
Edit3	Text	Пусто
Button1	Caption	Расчёт и вывод таблицы
	Font	Размер 14
BitBtn1	Kind	bkClose
StringGrid1	FixedCols	0
	FixedRows	1
	ColCount	3
	RowCount	2

Текст программы

procedure TForm1.FormCreate(Sender: TObject);

begin

//вывод заголовков столбцов

StringGrid1.Cells[0,0]:=' t';

StringGrid1.Cells[1,0]:=' v';

StringGrid1.Cells[2,0]:=' s';

end;

procedure TForm1.Button1Click(Sender: TObject);

const g=9.81;

var tn, tk, h, t, v, s:real; i,n:integer;

begin

tn:=StrToFloat(Edit1.Text);

tk:=StrToFloat(Edit2.Text);

h:=StrToFloat(Edit3.Text);

n:=round((tk-tn)/h+1); //расчёт количества циклов

StringGrid1.RowCount:=n+1; //расчёт количества строк в таблице

for i:=0 to n-1 do

begin

t:=tn+H*i;

v:=g*t;

s:=g*t*t/2;

StringGrid1.Cells[0,i+1]:=FormatFloat('0.0',t);

StringGrid1.Cells[1,i+1]:=FormatFloat('0.000',v);

StringGrid1.Cells[2,i+1]:=FormatFloat('0.00000',s);

end;

end;