Hallo,
ich programmiere zur Zeit ein "game of life", welches auch fehlerfrei läuft. Mit einer Prozedur ermittle ich alle benachbarten Felder eins Feldes Feld[x|y], wobei 'k' die Anzahl der bisherigen Nachbarn ist:
Delphi-Quellcode:
If Feld[x,y+1] = 1 then inc(k,1);
If Feld[x+1,y+1] = 1 then inc(k,1);
If Feld[x+1,y] = 1 then inc(k,1);
If Feld[x+1,y-1] = 1 then inc(k,1);
If Feld[x,y-1] = 1 then inc(k,1);
If Feld[x-1,y-1] = 1 then inc(k,1);
If Feld[x-1,y] = 1 then inc(k,1);
If Feld[x-1,y+1] = 1 then inc(k,1);
So klappt alles einwandfrei, doch wenn ich dasselbe mit einer Schleife lösen will, kappts irgendwie nicht mehr
Delphi-Quellcode:
For i := x-1 to x+1 do
For j := y-1 to y+1 do
If (i<>x)and(j<>y)and(Feld[i,j] = 1) then inc(k,1);
Finde den Fehler nicht
