Einzelnen Beitrag anzeigen

Benutzerbild von MrMooed
MrMooed

Registriert seit: 18. Feb 2012
101 Beiträge
 
Delphi 7 Enterprise
 
#23

AW: Snake - Ein Problem mit dynamischen Arrays

  Alt 4. Apr 2012, 19:16
Ahhh *klick* Somit müsste ich also vor jeder Bewegung überprüfen lassen, ob in der aktuellen Richtung ein Block vorhanden ist -> falls nicht Leben abziehen/ Beenden. Habe hier ebenfalls auf nicht auf die Syntax geachtet, aber so in etwa würde es dann ausschauen:

Delphi-Quellcode:
möglich = True
case Richtung of
  vorwärts: if Array[i+1] > High(Array) then moeglich = False;
  unten : if Array[i-1] < Low(Array) then moeglich = False;
  rechts : if Array[i,b+1] > High(Array[i]) then moeglich = False;
  links : if Array[i,b-1] < Low(Array[i]) then moeglich = False;
end;
Jenachdem ob 'moeglich' True ist bewegt sich dann die Schlange - oder eben nicht. Hätte mir das jetzt eigentlich länger vorgestellt aber wären nicht "schnellere" Versionen mit Try..Exept zu bevorzugen ? Man muss ja nicht immer das Rad neu erfinden
  Mit Zitat antworten Zitat