unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
RadioGroup1: TRadioGroup;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
StringGrid2: TStringGrid;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Label4: TLabel;
Label5: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Button3: TButton;
Button4: TButton;
procedure FormCreate(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
sfeld:ARRAY[1..10, 1..10]of String;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var y,m,i:Integer;
begin
Stringgrid2.cells[1,0]:='1';
Stringgrid2.cells[2,0]:='2';
Stringgrid2.cells[3,0]:='3';
Stringgrid2.cells[4,0]:='4';
Stringgrid2.cells[5,0]:='5';
Stringgrid2.cells[6,0]:='6';
Stringgrid2.cells[7,0]:='7';
Stringgrid2.cells[8,0]:='8';
Stringgrid2.cells[9,0]:='9';
Stringgrid2.cells[10,0]:='10';
Stringgrid2.cells[0,1]:='11';
Stringgrid2.cells[0,2]:='12';
Stringgrid2.cells[0,3]:='13';
Stringgrid2.cells[0,4]:='14';
Stringgrid2.cells[0,5]:='15';
Stringgrid2.cells[0,6]:='16';
Stringgrid2.cells[0,7]:='17';
Stringgrid2.cells[0,8]:='18';
Stringgrid2.cells[0,9]:='19';
Stringgrid2.cells[0,10]:='20';
Stringgrid1.cells[1,0]:='1';
Stringgrid1.cells[2,0]:='2';
Stringgrid1.cells[3,0]:='3';
Stringgrid1.cells[4,0]:='4';
Stringgrid1.cells[5,0]:='5';
Stringgrid1.cells[6,0]:='6';
Stringgrid1.cells[7,0]:='7';
Stringgrid1.cells[8,0]:='8';
Stringgrid1.cells[9,0]:='9';
Stringgrid1.cells[10,0]:='10';
Stringgrid1.cells[0,1]:='11';
Stringgrid1.cells[0,2]:='12';
Stringgrid1.cells[0,3]:='13';
Stringgrid1.cells[0,4]:='14';
Stringgrid1.cells[0,5]:='15';
Stringgrid1.cells[0,6]:='16';
Stringgrid1.cells[0,7]:='17';
Stringgrid1.cells[0,8]:='18';
Stringgrid1.cells[0,9]:='19';
Stringgrid1.cells[0,10]:='20';
//Stringgrid1.cells[9,10]:='9';
//Stringgrid1.cells[8,10]:='10';
y:=1;
m:=1;
For i:=1 to 10 do
begin
sfeld[1][y]:=Stringgrid1.cells[1,m];
y:=y+1;
m:=m+1;
end;
y:=1;
m:=1;
For i:=1 to 10 do
begin
sfeld[2][y]:=Stringgrid1.cells[2,m];
y:=y+1;
m:=m+1;
end;
y:=1;
m:=1;
For i:=1 to 10 do
begin
sfeld[3][y]:=Stringgrid1.cells[3,m];
y:=y+1;
m:=m+1;
end;
y:=1;
m:=1;
For i:=1 to 10 do
begin
sfeld[4][y]:=Stringgrid1.cells[4,m];
y:=y+1;
m:=m+1;
end;
y:=1;
m:=1;
For i:=1 to 10 do
begin
sfeld[5][y]:=Stringgrid1.cells[5,m];
y:=y+1;
m:=m+1;
end;
y:=1;
m:=1;
For i:=1 to 10 do
begin
sfeld[6][y]:=Stringgrid1.cells[6,m];
y:=y+1;
m:=m+1;
end;
y:=1;
m:=1;
For i:=1 to 10 do
begin
sfeld[7][y]:=Stringgrid1.cells[7,m];
y:=y+1;
m:=m+1;
end;
y:=1;
m:=1;
For i:=1 to 10 do
begin
sfeld[8][y]:=Stringgrid1.cells[8,m];
y:=y+1;
m:=m+1;
end;
y:=1;
m:=1;
For i:=1 to 10 do
begin
sfeld[9][y]:=Stringgrid1.cells[9,m];
y:=y+1;
m:=m+1;
end;
y:=1;
m:=1;
For i:=1 to 10 do
begin
sfeld[10][y]:=Stringgrid1.cells[10,m];
y:=y+1;
m:=m+1;
end;
//Label1.Caption:=IntToStr(StrToInt(sfeld[9][10]));
end;
procedure TForm1.Button4Click(Sender: TObject);
var vz,vb,vx:integer;
begin
vx:=16;
vz:=StrToInt(Edit3.Text);
vb:=StrToInt(Edit4.Text);
//sfeld[ vz ][ vb ]:=IntToStr(vx);
Stringgrid1.cells[1,11]:="böm";
end;
end.