Mal zur Systemmathik. Denkanstoß:
Ich habe das mal mit einem Ring-Buffer gelöst:
Delphi-Quellcode:
type
TSnake = record
aBody : array [0..ciMaxBuffer] of TPoint;
iHead, // Index des Kopfelementes
iGrow, // Um wieviel elemente soll die Schlange noch wachsen
iLen : Integer; // Länge der Schlange
end;
Ich hoffe das reicht.
EDIT: iGrow hinzugefügt