Mebby

New question.

Use a repeat until loop to generate a random number in the range 1 to 1000, that is not exactly divisible by 3 and store the value in the Tag property of an edit box called edtExample

So would this be right? (I don't really understand the question myself.

Repeat

edtExample.Tag := Random(999) + 1 ;

Until edtExample.Tag Mod 3 = 0 ;

stupid

make an array with 3,6,9,12 and 15 in it, then use the RandomFrom function
http://delphi.about.com/library/rtl/blrtlRandomFrom.htm

--------------------

var
Numbers : array of integer;
useThisOne : integer;

SetLength(Numbers,5);
Numbers[0] := 3; Numbers[1] := 6; Numbers[2] := 9;
Numbers[3] := 12; Numbers[4] := 15;

Randomize;
useThisOne := RandomFrom(Numbers);

__________________

Mebby

I ended up useing a case statment but that works to I guess.

Mebby

Any suggestion on this one?