Code: Select all
PROCEDURE (cur : Speler) Add*(naam : String; SpelLeider : SpelLeider);
VAR
l : Speler;
BEGIN
NEW(l);
l^.nr := INC(cur^.prev^.nr);
l^.naam := naam;
WHILE (cur # NIL) & (cur^.next # NIL) DO
cur := cur^.next;
END;
l^.prev := cur;
l^.next := NIL;
cur^.next := l;
SpelLeider^.aantalspelers := l^.nr;
END Add;
ps: later ga ik dit stukje code sowieso nog aanpassen want ik ga ook aan de velden triple, carre, yahtzee, ... standaard de waarde 0 meegeven.