Game Of Life - ich könnte etwas Hilfe gebrauchen, bitte

[Daniela.S]

letzte Nachbarzelle...

Delphi-Quellcode:

function GameOfLife(x,y: Integer): Integer;
var Temp: Integer;
begin
  Temp:=0;
  if (x>1) and (y>1) and (Zellen[x-1,y-1]=1) then Temp:=Temp+1;
  if (y>1) and (Zellen[x,y-1]=1) then Temp:=Temp+1;
  if (x<4) and (y>1) and (Zellen[x+1,y-1]=1) then Temp:=Temp+1;

  if (x>1) and (Zellen[x-1,y]=1) then Temp:=Temp+1;
  if (x<4) and (Zellen[x+1,y]=1) then Temp:=Temp+1;

  if (x>1) and (y<4) and (Zellen[x-1,y+1]=1) then Temp:=Temp+1;
  if (y<4) and (Zellen[x,y+1]=1) then Temp:=Temp+1;
  if (x<4) and (y<4) and (Zellen[x+1,y+1]=1) then Temp:=Temp+1;  // <----x<4

  case Temp of
  0,1,4..8: Result:=0;
  2: if (Zellen[x,y]=1) then Result:=1 else Result:=0;
  3: Result:=1;
  end;
end;