Probleme mit dyn. Array & pseudo-doppelt verketteter Liste

[Waldteufel]

Hi Manumf.

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

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!
Ich habe es jetzt korrigiert:
SetLength(Knoten, PredSqr((LZahl))); Aber warum hat das Erstellen trotzdem geklappt? Die Meldung kommt übrigens immer noch, zuerst aber eine mit ungültiger Zeigeroperation.

Gruß,
ManuMF

[Khabarakh]

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 . Jetzt ist es allerdings klar.

Zitat von ManuMF:

Aber warum hat das Erstellen trotzdem geklappt?

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 von Khabarakh:

Jetzt ist es allerdings klar.

Sorry, ich hätte es deutlicher schreiben sollen.

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?

Gruß,
ManuMF

[Waldteufel]

Hi Manumf.

Zitat von ManuMF:

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

Ei verflixt nochmal... Create ist doch dafür da, dass man es überschreibt verdeckt
(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 von ManuMF:

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?

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

Zitat von Waldteufel:

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

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

[ManuMF]

Hallo,

Danke an Alle!

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...

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 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 ...