Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

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



Читайте также:
  1. А1. Ввод массива с клавиатуры
  2. Анализ элементов массива
  3. В качестве контрольного примера используйте пример пятиэлементного массива целых чисел из первого способа
  4. Ввод и вывод на экран двумерного массива
  5. Ввод и вывод элементов двумерного массива.
  6. Ввод и вывод элементов массива

Свойства

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; просмотров: 63 | Нарушение авторских прав






mybiblioteka.su - 2015-2024 год. (0.006 сек.)