Probleme mit dyn. Array & pseudo-doppelt verketteter Liste

[ManuMF]

Hallo,

im Unterricht programmieren wir gerade eine Art Labyrinth, das durchlaufen werden soll. Es besteht quasi aus einzelnen Feldern. Diese Felder sollen in einem Array abgelegt werden (für den leichten Zugriff), und die umgebenden Felder sind dem jeweiligen Feld bekannt (das ist die pseudo-doppelt verkettete Liste).

Damit man die Größe frei wählen kann, soll das Array dynamisch sein. Soweit sogut - das Erstellen klappt, auch das Laden aller "Knoten" (also Felder) in ein ListView.

Aber wenn ich das Programm beende, erscheint eine Zugriffsverletzung oder ein Runtime Error. Woran kann das liegen?

Hier ein bisschen Code:

Delphi-Quellcode:

// Die Listenstruktur:
type TKnoten = class(TObject)
  Oben: TKnoten;
  Unten, Links, Rechts: "
  end;

// Vorbereitung der Liste:
SetLength(KArray, [User-Eingabe]);
ListeErstellen;

// procedure ListeErstellen
// [Schleife]
KArray[SchleifenVeriable] := TKnoten.Init;
...

Wie gesagt, das Erstellen klappt. Aber muss ich beim Beenden was beachten? Irgendwas freigeben?

Danke,
ManuMF

[mkinzler]

das wirklich interessante hast du aber wggwlassen, und wie sieht der Code zum Beenden aus?

[ManuMF]

Hallo,

Delphi-Quellcode:

MainForm.Close;

Mehr nicht ;-) . Bei der "normalen" doppelt verketteten Liste müsste man nichts machen, hat unser Info-Lehrer gesagt. Ich habe trotzdem immer Knoten für Knoten mit FreeAndNil eliminiert. Aber da hatten wir natürlich kein Array.

Gruß,
ManuMF

P.S.: Die Zugriffsverletzung kam aus einem anderen Grund, aber der Runtime Error kommt immer - es sei denn, man lässt die Liste bzw. das Array nicht erstellen.

[mkinzler]

Einen dyn. Array "leert" man mit

Delphi-Quellcode:

setLength( arr, 0);

[ManuMF]

Hallo,

ich habe es probiert, dann kommt aber eine Zugriffsverletzung, und beim 2ten Versuch wird das Programm erst geschlossen. Die AV kommt ebenfalls nicht, wenn die Liste nicht erstellt wurde.

Gruß,
ManuMF

[omata]

Schreib doch nochmal etwas mehr Code.

Und was ist .Init? Soll das der Konstruktor sein? Wenn man mit setlength das dynamische Array löscht, sind aber immer noch nicht die Objekte in der Liste freigegeben. Und eine doppeltverkettete Liste ist was ganz anderes, die wird mit New und Dispose erstellt bzw. gelöscht.

Hier wird ja alles in einen Topf geschmissen.

Gruss
Thorsten

[Khabarakh]

Ich denke, du versuchst, Objekte mehrmals freizugeben (schließlich gibt es 3-5 Referenzen auf jeden Knoten), was natürlich nicht funktioniert.

[ManuMF]

Hallo,

yepp, Init ist der Constructor. Das mit den Knoten haben wir eben aus der doppelt verketteten Liste, wie wir sie im Unterricht durchgenommen haben. Bei dieser Version wurde ein neuer Knoten initialisiert und dann in die Liste geschoben und die Verknüpfungen neu gesetzt. Beim Beenden habe ich dann wie schon gesagt Knoten für Knoten aus der Liste genommen und dann mit FreeAndNil eliminiert. Jetzt haben wir eben ein Array - natürlich ist das keine doppelt verkettete Liste mehr, aber eben die Felder "kennen sich" wie in einer Liste. Die Struktur hat uns unser Lehrer vorgegeben.

Hier noch der Code für das Erstellen:

Delphi-Quellcode:

var
  LZahl: Cardinal = User-Eingabe, bei meinen Tests 3
  Knoten: Array of TKnoten;

{----------}

var X, Y: Cardinal;

begin
   SetLength(Knoten, Pred(LZahl));

   for Y := 0 to Pred(LZahl) do
   begin
      for X := 0 to Pred (LZahl) do
      begin
         Knoten[X + (Lzahl * Y)] := TKnoten.Start;
         Knoten[X + (Lzahl * Y)].Position := Point(X, Y);
         Knoten[X + (Lzahl * Y)].Nummer := X + (Lzahl * Y);
      end;
   end;

   for Y := 0 to Pred(LZahl) do
   begin
      for X := 0 to Pred (LZahl) do
      begin
         if (X <> 0) then
            Knoten[X + (Lzahl * Y)].KLinks := Knoten[X + (Lzahl * Y) - 1];

         if (X <> Pred(LZahl)) then
            Knoten[X + (Lzahl * Y)].KRechts := Knoten[X + (Lzahl * Y) + 1];

         if (Y <> 0) then
            Knoten[X + (Lzahl * Y)].KOben := Knoten[X + (Lzahl * Y) - Lzahl];

         if (Y <> Pred(Lzahl)) then
            Knoten[X + (Lzahl * Y)].KUnten := Knoten[X + (Lzahl * Y) + Lzahl];
      end;
   end;

   InListviewEinlesen;

@Khabarakh: Wie meinst du das? Bzw. wie kann ich das vermeiden?

Gruß,
ManuMF

[Khabarakh]

Zitat:

Zitat von ManuMF

@Khabarakh: Wie meinst du das? Bzw. wie kann ich das vermeiden?

Deinen Aufräum-Code zu zeigen wäre kein schlechter Anfang :stupid: . Grundsätzlich solltest du die Knoten nur über das Array und nicht untereinander freigeben.

[ManuMF]

Hallo,

wie ich schon geschrieben habe: Ich habe keinen Code zum Aufräumen :cyclops:
Das Knoten-für-Knoten-löschen habe ich bisher nur in der Liste gemacht.

Gruß,
ManuMF

[Waldteufel]

Hi Manumf. :hi:

Zeig doch mal den Konstruktor-Code.
Und benenn den Konstruktor nach Create um. Init, das gab's mal unter TurboPascal... ;-)

[ManuMF]

Hallo,

unser Lehrer meinte, wir sollen es so nennen, um es nicht mit create zu verwechseln :gruebel:

Hier der Code:

Delphi-Quellcode:

constructor TKnoten.Init;
begin
   Position := Point(0, 0); // um später schnell anzuzeigen, wo er liegt
   Nummer := 0; // auch für die Anzeige
   KLinks := nil; // die Verknüpfungen
   KRechts := nil;
   KOben := nil;
   KUnten := nil;
   Genutzt := false; // wird für den Durchlauf gebraucht
end;

Der Aufruf siehe mein Beitrag #8.

Gruß,
ManuMF

[marabu]

Hi.

Delphi-Quellcode:

begin
   SetLength(Knoten, Pred(LZahl));

   for Y := 0 to Pred(LZahl) do
   begin
      for X := 0 to Pred (LZahl) do
      begin
         Knoten[X + (Lzahl * Y)] := TKnoten.Start;

Die Dimensionierung steht in keinem Verhältnis zu den von dir verwendeten Indexwerten.

Grüße vom marabu

[ManuMF]

Hallo,

stimmt! :wall:
Ich habe es jetzt korrigiert:

Delphi-Quellcode:

SetLength(Knoten, PredSqr((LZahl)));

Aber warum hat das Erstellen trotzdem geklappt? :gruebel: Die Meldung kommt übrigens immer noch, zuerst aber eine mit ungültiger Zeigeroperation.

Gruß,
ManuMF

[Khabarakh]

Zitat:

Zitat von ManuMF

Das Knoten-für-Knoten-löschen habe ich bisher nur in der Liste gemacht.

Aah, du bringst mich mit deinen Pseudo- und Nicht-Pseudo-Listen ganz durcheinander :stupid: . Jetzt ist es allerdings klar.

Zitat:

Zitat von ManuMF

Aber warum hat das Erstellen trotzdem geklappt? :gruebel:

Weil du dein Projekt nicht zum Debuggen (in diesem speziell die Bereichsprüfung) eingestellt hast. Schlechte Idee, wenn man Debuggen will ;) . Vielleicht findest du damit auch den nächsten Fehler.

[ManuMF]

Zitat:

Zitat von Khabarakh

Jetzt ist es allerdings klar.

Sorry, ich hätte es deutlicher schreiben sollen.

Zitat:

Zitat von Khabarakh

Weil du dein Projekt nicht zum Debuggen (in diesem speziell die Bereichsprüfung) eingestellt hast. Schlechte Idee, wenn man Debuggen will ;) . Vielleicht findest du damit auch den nächsten Fehler.

Und wie hilft mir das weiter? :stupid: ;-)

Gruß,
ManuMF

[Waldteufel]

Hi Manumf.

Zitat:

Zitat von ManuMF

unser Lehrer meinte, wir sollen es so nennen, um es nicht mit create zu verwechseln :gruebel:

Ei verflixt nochmal... :roll: Create ist doch dafür da, dass man es überschreibt verdeckt :wall:
(Lehrer gibt's)

Sähe dann so aus:

Delphi-Quellcode:

constructor TKnoten.Create;
begin
   inherited; // <-- GANZ BESONDERS WICHTIG!!!
   Position := Point(0, 0); // um später schnell anzuzeigen, wo er liegt
   Nummer := 0; // auch für die Anzeige
   KLinks := nil; // die Verknüpfungen
   KRechts := nil;
   KOben := nil;
   KUnten := nil;
   Genutzt := false; // wird für den Durchlauf gebraucht
end;

[Khabarakh]

Zitat:

Zitat von ManuMF

Zitat:

Zitat von Khabarakh

Weil du dein Projekt nicht zum Debuggen (in diesem speziell die Bereichsprüfung) eingestellt hast. Schlechte Idee, wenn man Debuggen will ;) . Vielleicht findest du damit auch den nächsten Fehler.

Und wie hilft mir das weiter? :stupid: ;-)

Du siehst durch eine etwas genauere Exception, wo und welcher Index aus dem Rahmen fällt :gruebel: ?

Zitat:

Zitat von Waldteufel

Create ist doch dafür da, dass man es überschreibt :wall:

Verdeckt ;) . Es sei denn, man leitet von TComponent ab oder hat einen eigenen virtuellen Konstruktor eingeführt.

[ManuMF]

Hallo,

Danke an Alle! :-D

Warum auch immer, erst jetzt kam "Fehler bei Bereichsprüfung", obwohl ich es schon nach dem Beitrag von Khabarakh aktiviert hatte. Und jetzt ist es mir klar: Die Länge für SetLength muss ja = die höchste Knotennummer + 1 sein, da ich bei 0 anfange... :wall:

So kommt jetzt auch keine Meldung mehr.

Gruß,
ManuMF

P.S.: Ist es nun besser, Create zu verdecken, oder Init o.Ä. zu verwenden? ;-)

[Khabarakh]

Zitat:

Zitat von ManuMF

Warum auch immer, erst jetzt kam "Fehler bei Bereichsprüfung", obwohl ich es schon nach dem Beitrag von Khabarakh aktiviert hatte.

Wahrscheinlich hattest du keinen Rebuild des Projektes durchgeführt.

Zitat:

P.S.: Ist es nun besser, Create zu verdecken, oder Init o.Ä. zu verwenden? ;-)

Es gäbe da schon ein paar, die dich für die Verwendung Letzteren lynchen würden ... :zwinker: