Hallo,
ich habe wieder einen ganzen brocken an Quelltext der sich sehr ähnlich ist:
Delphi-Quellcode:
randomize;
stein_nr_aktiv:= random(7) + 1;
case stein_nr_aktiv of
1: begin
feldaktive[6]:=1;
feldaktive[16]:=1;
feldaktive[25]:=1;
feldaktive[26]:=1;
end;
2: begin
feldaktive[5]:=1;
feldaktive[15]:=1;
feldaktive[25]:=1;
feldaktive[26]:=1;
end;
3: begin
feldaktive[5]:=1;
feldaktive[6]:=1;
feldaktive[15]:=1;
feldaktive[16]:=1;
end;
4: begin
feldaktive[5]:=1;
feldaktive[6]:=1;
feldaktive[7]:=1;
feldaktive[8]:=1;
end;
5: begin
feldaktive[5]:=1;
feldaktive[14]:=1;
feldaktive[15]:=1;
feldaktive[16]:=1;
end;
6: begin
feldaktive[5]:=1;
feldaktive[15]:=1;
feldaktive[16]:=1;
feldaktive[26]:=1;
end;
7: begin
feldaktive[6]:=1;
feldaktive[15]:=1;
feldaktive[16]:=1;
feldaktive[25]:=1;
end;
end;
die Zahlen gehen nach keinen prinzip. Kann man das irgendwie vereinfachen oder ist das nicht möglich??
ferby