Problem mit Pointern

[Der_Unwissende]

Sorry, noch mal ganz kurz an die Leute die dir hier helfen wollen (und natürlich auch an dich), ich glaube ein paar ist der ursprüngliche Fehler nicht bewußt.
Wenn ich den Code richtig deute möchte er ein dynamisches Array erstellen aber halt zu Fuß mit Pointern. Der eigentliche Fehler lag definitiv in sizeOf(pt), damit erhöhst du nie im richtigen Masse die Größe des Arrays (also deines reservierten Speichers). Die Access Violation resultiert also in der Aktion GetMem(pt, sizeOf(pt) - sizeOf(TPosition)). Das ist einfach mal 4 - 16 Bytes reservieren (-> ungültiger Pointer).

[Hawkeye219]

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