Forum: Object-Pascal / Delphi-Language
Delphi
by Nikolas,
31. Mär 2006
Beziehst du dich auf meinen Post?
Die erste Schleife := random(49)+1;] war nur dazu gedacht, zu zeigen, wie man den Block abkürzen kann und hat mit dem eigentlichen Ansatz nichts zu tun.
Um zu überprüfen, ob eine Zahl schon gezogen wurde, benutze ich das set, weil es schöner und wahrscheinlich schneller ist, einfach nur auf 'in Set' zu prüfen, als eine Schleife über alle schon gezogenen...
Forum: Object-Pascal / Delphi-Language
Delphi
by Nikolas,
31. Mär 2006
hm. ja, stimmt, das ist ein sinnvoller Einwand. Mir war die Idee wichtig, da hab ich auf Feinheiten wie die Grenze nicht geachtet, aber das neue Setzen der Liste hab ich einfach vergessen. :duck:
Naja, wenn er aber mal 8 oder 20 solcher Zahlen haben will, wird so eine Lösung recht schnell recht unübersichtlich. Mit einer Schleife dauert die Anpassung 10sec.
Forum: Object-Pascal / Delphi-Language
Delphi
by Nikolas,
31. Mär 2006
Hi Solche Blöcke wie
zahl:=random(49)+1;
zahl:=random(49)+1;
zahl:=random(49)+1;
zahl:=random(49)+1;
zahl:=random(49)+1;
zahl:=random(49)+1;
sollten eher über eine Schleife gemacht werden, also
for i:=1 to 6 do