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
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;