Delphi aus Randomwertebereich Zahlen ausschließen???

Thema durchsuchen

Ansicht

Themen-Optionen

aus Randomwertebereich Zahlen ausschließen???

Ein Thema von mosquito · begonnen am 20. Nov 2005 · letzter Beitrag vom 21. Nov 2005

Vorheriger Beitrag

Nächster Beitrag

leddl

Registriert seit: 13. Okt 2003
Ort: Künzelsau
1.613 Beiträge

Delphi 2006 Professional

#10

Re: aus Randomwertebereich Zahlen ausschließen???

20. Nov 2005, 21:00

Warum denn so kompliziert mit ner Liste? Warum is noch keiner auf den einfachsten Gedanken gekommen? Benutz ein Set of Byte, dann kannst du ganz einfach mit

markieren

Delphi-Quellcode:

			Var myByteSet : Set of Byte;

...

myByteSet := [5..8,27,93..96];

...

repeat

  la:=random(100);

until not (la in myByteSet);

...

Übrigens: Nimm das Randomize mal aus der Funktion, falls die mehrmals aufgerufen wird. Randomize solltest du im Programm nur ein einziges Mal aufrufen, zB im OnCreate der Form.

//Edit: Integer in Byte geändert, thx to himitsu

Axel Sefranek

A programmer started to cuss, cause getting to sleep was a fuss.
As he lay there in bed, looping round in his head
was: while(!asleep()) ++sheep;