Pointer of Array of Pointer neues Prinzip

[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;