Pointer of Array of Pointer neues Prinzip

[Bummi]

Delphi-Quellcode:

Procedure TForm1.OutList;
Var
   x: integer;
   Next: pEintrag;
Begin
   next := First;
   LBOutNumber.Items.Clear;
   while Assigned(next) do
      begin
        LBOutNumber.Items.Add(IntToStr(next.Wert));
        next := next.Nachfolger;
      end;
End;