1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, Menus, ExtCtrls;
type
TForm1 = class(TForm)
DrawGrid1: TDrawGrid;
MainMenu1: TMainMenu;
Start1: TMenuItem;
Ende1: TMenuItem;
Spielwelt1: TMenuItem;
Erzeugen1: TMenuItem;
Leeren1: TMenuItem;
Timer1: TTimer;
Pause1: TMenuItem;
procedure Ende1Click(Sender: TObject);
procedure Erzeugen1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
procedure Leeren1Click(Sender: TObject);
procedure Start1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure DrawGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure Pause1Click(Sender: TObject);
private
FIsAlive: Array of Array of boolean;
FIsAlive2: Array of Array of boolean;
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
DrawGrid1.Canvas.Brush.Color:=clwhite;
If FIsAlive[ACol, ARow]=true then
DrawGrid1.Canvas.Brush.Color:=clblack;
DrawGrid1.Canvas.Rectangle(DrawGrid1.CellRect(ACol,ARow));
end;
procedure TForm1.DrawGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
FIsAlive[ACol,ARow]:=true;
DrawGrid1.Refresh;
end;
procedure TForm1.Ende1Click(Sender: TObject);
begin
application.terminate;
end;
procedure TForm1.Erzeugen1Click(Sender: TObject);
var i,j:integer;
begin
For i:=0 to Length(FIsAlive)-1 do
For j:=0 to Length(FIsAlive[i])-1 do
begin
If random(1000) mod 2 = 0 then FIsAlive[i,j]:=true
Else FIsAlive[i,j]:=false;
end;
For i:=0 to Length(FIsAlive)-1 do
For j:=0 to Length(FIsAlive[i])-1 do
begin
FIsAlive2[i,j]:=FIsAlive[i,j];
end;
DrawGrid1.Refresh;
end;
procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
Timer1.Enabled:=false;
SetLength(FIsAlive,DrawGrid1.RowCount);
For i:=0 to DrawGrid1.RowCount -1 do
SetLength(FIsAlive[i], DrawGrid1.ColCount);
SetLength(FIsAlive2, DrawGrid1.RowCount);
For j:=0 to DrawGrid1.RowCount -1 do
SetLength(FIsAlive2[j], DrawGrid1.ColCount);
end;
procedure TForm1.Leeren1Click(Sender: TObject);
var i,j:integer;
begin
Timer1.Enabled:=false;
For i:=0 to Length(FIsAlive)-1 do
For j:=0 to Length(FIsAlive)-1 do
FIsAlive[i,j]:=false;
DrawGrid1.Refresh;
end;
procedure TForm1.Pause1Click(Sender: TObject);
begin
Timer1.Enabled:=false;
end;
procedure TForm1.Start1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var i,j,z:integer;
begin
For i:=1 to Length(FIsAlive)-1 do
For j:=1 to Length(FIsAlive) -1 do
begin
z:=0;
If FIsAlive[i+1,j]=true then z:=z+1;
If FIsAlive[i-1,j]=true then z:=z+1;
If FIsAlive[i+1,j+1]=true then z:=z+1;
If FIsAlive[i-1,j-1]=true then z:=z+1;
If FIsAlive[i+1,j-1]=true then z:=z+1;
If FIsAlive[i-1,j+1]=true then z:=z+1;
If FIsAlive[i,j+1]=true then z:=z+1;
If FIsAlive[i,j-1]=true then z:=z+1;
If (z=2) or (z=3) then FIsAlive2[i,j]:=true;
If (z<2) or (z>3) then FIsAlive2[i,j]:=false;
end;
For i:=1 to Length(FIsAlive)-1 do
For j:=1 to Length(FIsAlive)-1 do
begin
FIsAlive[i,j]:=FIsAlive2[i,j];
end;
DrawGrid1.Refresh;
end;
end. |
ich.AG hat folgendes geschrieben 
: