Juhu, ich habs geschafft
Bin jetzt endlich fertig, falls es interessieren sollte hier nochmal der entgültige Code:
Code:
for i := 0 to 5 do
begin
zw2:= 49 - i; //Jede "runde" gibt es eine Möglichkeit weniger, deshalb "-i"
zw:= Random (zw2); //hier wird nicht der wert, sondern nur der Index
//(des "Werte-Arrays") einer Zahl gezogen
zufall[i]:= werte[zw]; // Aus dem "Werte-Array" wird jetzt die zu dem Index
//gehörende Zahl "herausgeholt"
werte[zw]:=49-i; //der gezogene Wert wird durch den "letzten Wert,
//der diese Runde gezogen werden konnte" ersetzt,
//nächste Runde wird i um eins
//erhöht und die hier doppelt besetzte Zahl
//ist wieder nur einmal da!
end;
Vielen Dank nochmal für die tolle Hilfe!
Grüße Walgo