Pointer of Array of Pointer neues Prinzip

[Marcel2906]

wie gehe ich denn einzeln da durch, habs mit f7 gemacht. und bekomme den fehler erst ganz am ende, wenn das programm schon beendet ist.

Zitat:

Übrigens: wozu ist eigentlich das Array gut, das wird doch gar nicht benutzt?

Später möchte ich die Kette sortieren. Glaube dann brauch ich das array, oder nicht?? ^^

Zitat:

Erste Gelegenheit für Exception bei $7C812AFB. Exception-Klasse EAccessViolation mit Meldung 'Zugriffsverletzung bei Adresse 004ADCFF in Modul 'Pointer.exe'. Lesen von Adresse 00000010'. Prozess Pointer.exe (3264)

[Bummi]

Vielleicht ist der Aufruf von FreeKette im Destruktor nach der Freigabe der Liste keine gute Idee

[Marcel2906]

auch wenn ich freeKette auskommentiere kommt der fehler

[DeddyH]

Die Liste wird ja nicht benutzt, daran liegt es nicht. Ich habe den Code jetzt mal hier unter XE eingefügt und kompiliert, da kommen einige Warnungen und Hinweise, insbesondere in AddElement.

[Marcel2906]

Ahh, habs...also hoffe das ist so richtig..habe new(hlp) hinzugefüht

[DeddyH]

Ich habe AddElement mal umgeschrieben:

Delphi-Quellcode:

Procedure TForm1.AddElement(Wert: integer);
Var
  hlp, neu: PEintrag;
Begin
  // Anfang vorhanden ?
  If (First = Nil) Then
    Begin
      New(First);
      First^.Vorgaenger := Nil; // Der Anfang der Kette hat keinen Vorgänger;
      First^.Nachfolger := Nil; // Der Nachfolger ist auch erstmal nicht vorhanden.
      neu := First;
    End
  Else
    Begin
      hlp := First;
      While (hlp^.Nachfolger <> Nil) Do
        hlp := hlp^.Nachfolger;
      New(neu);
      neu^.Vorgaenger := hlp;
      neu^.Nachfolger := nil;
      hlp^.Nachfolger := neu;
    End;
  neu^.Wert := Wert;
End;

[Bummi]

Delphi-Quellcode:

Procedure TForm1.AddElement(Wert: integer);
Var
   hlp, hlp2: PEintrag;
Begin
   //Anfang vorhanden ?
   If (FIRST = Nil) Then Begin
      New(First);
      First^.Vorgaenger := Nil; //Der Anfang der Kette hat keinen Vorgänger;
      First^.Nachfolger := Nil; //Der Nachfolger ist auch erstmal nicht vorhanden.
      hlp2 := First;
     
   End Else Begin
      hlp := First;
      While (hlp^.Nachfolger <> Nil) Do
         hlp := hlp^.Nachfolger;
      new(hlp^.Nachfolger);
      hlp2 := hlp^.Nachfolger;
      hlp2^.Vorgaenger := hlp;
   End;
   hlp2^.Wert := Wert; 
End;

[DeddyH]

Zu spät

[Bummi]

wo ist die rote Box hingekommen .....