Zitat:
Nur wie mache ich das ? Wäre echt dankbar für einen effizienteren Denkanstoß als der Meinige Smile
Wenn du Zelle x/y in einem [0..X]*[0..Y] Feld untersuchen willst, findest du so alle Nachbarn:
Delphi-Quellcode:
// nach rechts:
if x<X then x_neu:=x+1 else x:=0;
// nach links:
if x>0 then x_neu:= x-1 else x:= X;
// Nach oben:
if 0<y then y_neu:=y-1 else y:=Y;
// Nach unten:
if y<Y then y_neu:=y+1 else y:=0;
Schau dir vielleicht mal auf Luckies Homepage seine Version an.