Pointer of Array of Pointer neues Prinzip

[DeddyH]

Gerade das Durchhangeln wollen wir uns doch sparen.

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
      New(hlp);
      hlp^.Vorgaenger := Last;
      hlp^.Nachfolger := nil;
      Last^.Nachfolger := hlp;
      Last := hlp;
   End;
   Last^.Wert := Wert;
End;

Ungetestet, sollte aber stimmen.