Hallo,
der Fehler in deinem Algorithmus wird durch den falschen Umgang mit Pointern verursacht. Wie du ja bereits richtig erkannt hast, wird eine neue Gruppe durch das Zeichen "[" geöffnet und durch das Zeichen "]" wieder geschlossen. Beim Schließen der Gruppe muß der vorherige Zustand des Systems wiederhergestellt werden. Du hast nun versucht, eine Art "Pointer-Array" zu realisieren und dieses durch GetMem-Aufrufe zu vergrößern und zu verkleinern. Das ist aber in Delphi so, wie du es programmiert hast, nicht möglich.
Da ihr offenbar nicht mit dynamischen Arrays arbeiten dürft, solltest du über den Einsatz einer
verketteten Liste nachdenken. Erweitere den Record
TPosition um ein Feld vom Typ
PPosition, das auf das nächste Element der Liste zeigt. Beim Öffnen einer Gruppe legst du nun ein neues Element an und verkettest es mit deiner bisherigen Liste. In diesem neuen Element kannst du den aktuellen Zustand des Systems sichern. Beim Schließen einer Gruppe restaurierst du das System aus dem zuletzt eingefügten Element und entfernst es aus der Liste. Wenn du neue Elemente immer am Anfang der Liste einfügst, benötigst du nur einen Verweis auf das erste Listenelement und kommst mit einer einfach verketteten Liste aus.
Gruß Hawkeye