Array of Record Speicher/Finalization Problem

[DeddyH]

SetLength(a, Length(a) + 1); finde ich persönlich verständlicher.

[Kampfheizung]

Also ich protokoliere mal kurz die Stelle um es verständlicher zu gestalten :

Vorweg noch einmal :

Ich habe eine Paintbox die zeichnet ein Spielfeld - was am Anfang nur die Hintergrundfarbe
und die Linienfarbe beinhaltet - außen auf den Linien darf der Spieler sich frei bewegen
mit den Pfeiltasten - wenn er x oder y drückt darf er sich auch im Spielfeld bewegen
und zeichnet eine Linie hinter sich her die auf der Paintbox gezeichnet werden muss
ansonsten verschwindet sie ja immer wieder.

Da wo der Spieler auf dem Rand reingeht ins Spielfeld ist der Anfangspunkt
und dort wo er dann seine Lauf-Richtung ändert ist der Endpunkt

also soll eine Linie vom Anfangspunkt bis zum Endpunkt gezeichnet werden
also moveto Anfangspunkt lineto Endpunkt.

Diese Linien könnte ich ja ganz einfach so zeichnen blos ich brauche die x und y Koordinaten
von den einzelnen Linien weil ich einen Gegner habe in der Mitte der sich im Spielfeld
bewegt und mit mir Kollidieren will. Darum muss ich überprüfen ob er eine bestimmte Linie getroffen hat
oder nicht.

PS : Hab ich ganz vergessen zu erwähnen es geht um das Spiel Qix - dann wird das sicherlich verständlicher.


Und ich hab den Speicher-Fehler rausbekommen - ich habe versucht immer auf ein Element zuzugreifen was noch gar nicht erstellt/vorhanden war.

[DeddyH]

Der Verständlichkeit halber würde ich den Record wohl so deklarieren:

Delphi-Quellcode:

type
  TLine = record
    StartPoint,
    EndPoint: TPoint;
  end;

Wenn Du nun die Richtung wechselst, erweiterst Du Dein Array um ein Element und setzt EndPoint des vorher letzten Elements und StartPoint des nun letzten auf die aktuelle Position relativ zur Paintbox. Nach meinem Dafürhalten sollte das eigentlich funkionieren.

[Bummi]

Warum nicht gleich ein Array of Tpoint, die Linen ergeben sich immer aus Point[x] und Point[x-1] für x>0

[Kampfheizung]

Habe ich jetzt auch genommen ( TPoint).

Ich merke selber das ich wegen der Zeitfrist bisschen in Druck gerate
und die Modularisierung des Programmes dadurch flach fällt.

Aber ich bedanke mich schonmal das ihr mir da aus der Patsche geholfen habt
ich war da so ziemlich am verzweifeln bei dem Kram.

[Amateurprofi]

Zitat von DeddyH:

SetLength(a, Length(a) + 1); finde ich persönlich verständlicher.

Und schneller ist es auch, weil High(a) zunächst Length(a) aufruft und vom Ergebnis 1 subtrahiert.
In der Praxis ist das aber sicherlich unerheblich.

[himitsu]

Einige stehn auch auf Pred und Succ, also SetLength(a, Pred(Length(a))); .
Ich persönlich find das nicht wirklich übersichtlicher und wenn es eine "echte" Funktion wäre und dann noch nichtmal inline, dann wär's auch nicht wirklich besser.

Aber vom Compiler werden Pred, Inc und +1 gleich eh behandelt und als INC umgesetzt, also jeder wie er will.