Компонент TStringGrid

ТАБЛИЧНОЕ ПРЕДСТАВЛЕНИЕ ДАННЫХ

Таблица – двухмерное представление данных, упорядоченное по столбцам и строкам. Таблицы, как правило, имеют заголовки. В связи с этим таблицы делятся на две части: фиксированную и рабочую. Рабочая часть может содержать произвольное количество строк и столбцов. Если она не помещается в пределах компонента, то в него автоматически встраиваются полосы прокрутки.

Табличное представление можно использовать для ввода и вывода данных, т.е. содержимое ячеек можно редактировать.

В Delphi используются два компонента для представления данных в виде таблицы: TStringGrid и TDrawGrid.

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;

Дата добавления: 2014-01-07