Компонент TStringGrid

TStringGrid

Этот компонент предназначен для создания таблицы, содержащей произвольные текстовые строки. Свойства компонента TStringGrid:

BorderStyle: TBorderStyle;

- определяет наличие внешней рамки таблицы: (bsNone, bsSingle);

ColCount: LongInt;

RowCount: LongInt;

- определяют количество столбцов и строк таблицы;

FixedCols: Integer;

FixedRows: Integer;

- определяют количество столбцов и строк фиксированной части;

Color: TColor;

- определяет цвет рабочей части таблицы;

FixedColor: TColor;

- определяет цвет фиксированной части таблицы;

GridLineWidth: Integer;

- определяет толщину расчерчиваемых линий;

Col: LongInt;

Row: LongInt;

- определяют номер столбца и строки сфокусированной ячейки;

Options: TGridOptions;

Могут быть выбраны значения опций:

[goEditing] – для редактирования ячеек;

[goVertLine] – для рисования вертикальных линий;

[goHorLine] – для рисования горизонтальных линий и др.;

Cells[ACol, ARow: Integer]: String;

- определяет содержимое ячейки с табличными координатами ACol и ARow

Cols[Index: Integer]: TStrings;

Rows[Index: Integer]: TStrings;

- определяют все стринговые значения столбца или строки.

Пример.

Вычислить y=Asin(wt), 0 £ t £ 10 с, w = 2 с^-1, А = 0.01 м, h = 0.1 c. Результаты вывести в виде таблицы.

В секции public класса TForm1 описать переменные:

a, w, tk, h, y: extended;

N: integer;

В обработчике FormCreate записываем следующее:

Procedure TForm1.FormCreate();

var

i: integer;

begin

A: = 0.01; tk: = 10; w: = 2; h: = 0.1;

N: = round(tk/h)+2;

StringGrid1.RowCount: = N;

StringGrid1.ColCount: = 3;

StringGrid1.Cells[0, 0]: = ’N’;

StringGrid1.Cells[1, 0]: = ’Время, с’;

StringGrid1.Cells[2, 0]: = ’Функция, y’;

StringGrid1.Options: = [goVertLine, goHorLine];

t: = 0;

y: = A * sin (w*t);

for i: =1 to N do

begin //где разместить дальнейшие операторы?

StringGrid1.Cells[0, i]: = IntToStr(i);

StringGrid1.Cells[1, i]: = FloatToStrF(t, fffixed, 8, 3);

StringGrid1.Cells[2, f]: = FloatToStrF(f, fffixed, 8, 3);

y: = A * sin (w*t);

t: =: = t + h;

until t < tk;

end;

end;