Snake Problem mit Stringgrid

[ichbins]

einen Timer darfst du doch bestimmt verwenden?



Verwende als Spielfeld eine Variable, etwa so:

spielfeld:array[0..100,0..100] of tsnakeelement; dann schreibst du dir eine

Delphi-Quellcode:

procedure display;
begin
  //jetzt spielfeld im stringgird darstellen
end;

die rufst du in jeder Timerwiederholung auf.

Dann machst du in jeder Timerwiederholung noch dass die Schlange sich um 1 vorbewegt.

mit form.keydown kannst du abfragen welche Pfeldtaste gedrückt wurde (37 = Links; 38 = oben; 39 = rechts; 40 = unten)