Bonjour,
Je souhaiterais obtenir un tirage au hasard de 10 nombres de 2 chiffres. J'obtiens une suite de nombres identiques. Est-ce que j'utilise mal la fonction "randomize" ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
i := 1;
j := 0;
 
while i < 11 do
begin
randomize;
          while j < 2 do
           begin
           alea := random(100);
           str(alea,aleastring);
           j := length(aleastring);
           end;
i := i + 1;
end;
Qu'en pensez-vous ?
Je vous remercie.