unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
type feldtyp= array [1..10,1..10] of integer; // <-- Array
var feld: feldtyp;
procedure TForm1.FormShow(Sender: TObject);
var i: integer;
begin
randomize;
for i:=1 to 10 do
begin
stringgrid1.Cells[0,i]:=inttostr(i)+'. Zeile';
stringgrid1.Cells[i,0]:=inttostr(i)+'. Spalte';
stringgrid1.Cells[11,0]:='Summe';
stringgrid1.Cells[12,0]:='Mittelwert';
stringgrid1.Cells[0,11]:='Summe';
stringgrid1.Cells[0,12]:='Mittelwert';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i, j, summe: integer;
begin
summe:=0;
randomize;
for i:=1 to 10 do
for j:=1 to 10 do
begin
feld[i,j]:= random(101);
stringgrid1.Cells[i,j]:= inttostr(feld[i,j]);
end;
stringgrid1.Cells[11,1]:= inttostr(summe);
end;
end.