Дістемелік кешені

Решение:

2.Для создания нового проекта file/new/application.

3.Из страницы Standart палитры компонентов поместим на форму Form1 следующие компоненты: Button1, Button2, Button3. StringGrid1, StringGrid2.
.4. На форме Form1в Caption введем «Решение массива».К кнопкам Button1, Button2, Button3 в свойстве Caption присвоем соответственно «Решение1», «Решение2» «Очистить».
В инспекторе обьекта для общих таблиц выберем свойства Options. Войдем в него двойным щелчком. Значение флага doEditing=true

Для StringGrid1, StringGrid2 FixedCols=0

FixedRows=0

ColCount=4

RowCount=4

Форма программы.

5.Активизируем двойным щелчком на каждой кнопке и допищим следующие строки для каждой из них.

Button1:

procedure TForm1.Button1Click(Sender: TObject); var i:integer;

begin

for i:=0 to 3 do begin

StringGrid2.Cells[i,3]:=StringGrid1.Cells[i,0];

StringGrid2.Cells[i,1]:=StringGrid1.Cells[i,1];

StringGrid2.Cells[i,2]:=StringGrid1.Cells[i,2]; end

end;

Button2:

Button3

begin

StringGrid2.Cells[j,i]:=' ' end;

6.Опищем массив unit Gulk; interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids;

type
62

TForm1 = class(TForm) StringGrid1: TStringGrid; StringGrid2: TStringGrid; Button1: TButton; Button2: TButton; Button3: TButton;

procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var

begin

StringGrid2.Cells[i,0]:=StringGrid1.Cells[i,3];

StringGrid2.Cells[i,3]:=StringGrid1.Cells[i,0];

StringGrid2.Cells[i,1]:=StringGrid1.Cells[i,1];

StringGrid2.Cells[i,2]:=StringGrid1.Cells[i,2]; end

end;

procedure TForm1.Button3Click(Sender: TObject); var i,j:integer;

begin

for i:=0 to 3 do for j:=0 to 3do

StringGrid2.Cells[j,i]:=' ' end;

end.