to

File Edit Search View Refactor Project Run Component lools Window Help O 2

fault Layout

-1 fi ą

O. Search

Gfc) ^ @ I (P ś? I (fi (£U !► ^    ^ DII MI "i v S

lUnitl

var

Forml: TForml;

- □ implementation

{$R * . dfm}

□procedurę TForml.3uttonlClick(Sender: TObject);

30 var k,w:integer;

•    begin

•    for k := 0 to 9 do

•    for w := 4 to 4 do

•    Forml.StringGridl.Cells[k,w]:=IntToStr(random(11)-0);

•    - end;

□procedurę TForml.3utton2Click(Sender: TObject); var k,w,x:integer;

•    40 begin

•    for k    :=    4    to    4    do

•    for w    :=    0    to    9    do

begin

•    StringGridl.Cells[k,w]:=StringGridl.Cells[w,k];

•    45 StringGridl.Cells[k,4]:='

•    end;

•    end;

50

end.

nr

	45: 22	Insert	Modified		Codę Design History			"l&Projectl.d...	^Modelyiew i^DataExplo...
•<*)	If 1® 0			^rą^m_	0	3		^PL « * »	, .. 22:34 <’> * 2014-02-11