![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Компонент 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. Результаты вывести в виде таблицы.
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;
|