Ввод массива StringGrid

Свойства

ColCont - количество колонок таблицы

RowCount – количество строк таблицы

Cells – соответствующий таблице двумерный массив

Options.goEditing - true – разрешено редактирование

. goTab – использование клавиши Tab

DefaultColWidth – ширина колонок

DefaultRowHeight – высота строк

Font – шрифт

FixedCols – фиксированные столбцы

Fixed Rows – фиксированная строка

Пример Вычисление суммы элементов массива

Ответ в окне

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids;

type

TForm1 = class(TForm)

Tab1: TStringGrid;

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

Type TMas = Array [0..14,0..14] of real;

var s:real; A:TMas; i,j:byte;

begin

s:=0;

for i:= 1 to Tab1.RowCount-1 do

For J:=1 to Tab1.ColCount-1 do

begin

A[i,j]:= strToFloat(Tab1.Cells[i,j]);

s:=s+A[i,j];

ShowMessage ('sum='+floatToStr(s)); {контрольная печать}

end;

ShowMessage ('sum='+floatToStr(s));

end;

end.

Пример2 Электронная таблица

Количество строк столбцов = 5

Первый индекс – столбец

Второй - строка

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids;

type

TForm1 = class(TForm)

Tab1: TStringGrid;

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

Type TMas = Array [0..14,0..14] of real;

var s:real; A:TMas; i,j:byte;

begin

for j:= 1 to Tab1.RowCount-1 do

begin s:=0;

For i:=1 to Tab1.ColCount-2 do

begin

A[i,j]:= strToFloat(Tab1.Cells[i,j]);

s:=s+A[i,j];

end;

Tab1.Cells[Tab1.ColCount-1,j]:=floatToStr(s/3);

end;

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

tab1.Cells[0,0]:='фамилия';

tab1.Cells[1,0]:='математика';

tab1.Cells[2,0]:='физика';

tab1.Cells[3,0]:='информатика';

tab1.Cells[4,0]:='средний балл';

end;

end.

1. Задача Даны не более 20 слов. Найти слово, которое наиболее близко к заданному (число совпадающих букв, начиная с первой максимальное).

Пример: книги книголюб кнопка

Слово книговед Ответ книголюб

Дата добавления: 2015-07-10