Pointer of Array of Pointer neues Prinzip

[Marcel2906]

also so ?! :

Delphi-Quellcode:

Procedure TForm1.AddElement(Wert: integer);
Var
   hlp: 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.
      last := First;
   End Else Begin
      hlp := First;
      While (hlp^.Nachfolger <> Nil) Do
         hlp := hlp^.Nachfolger;
      New(last);
      last^.Vorgaenger := hlp;
      last^.Nachfolger := Nil;
      hlp^.Nachfolger := last;
   End;
   last^.Wert := Wert;
End;