Tirage au sort de nombre dans une liste

Cette interface permet de tirer au sort une liste de nombre de 1 à 100, piochés au hasard dans un volume plus important (jusqu'à 1000)

Dans le cadre de mon projet (un Quizz visuel), cela me permet de tirer au sort quelques questions dans la marmite de questions que je constitue au fil du temps.

Cela peut servir pour effectuer un tirage au sort de cartes ou dans toute application similaire.

On commence par entrer le nombre de valeurs contenus dans la marmite au début. On appuie sur "enter" pour activer la vérification interne.

Si c'est ok, on peut entrer le nombre de tirage souhaité et on appuie sur "enter" pour activer la vérif interne du nombre.

Si c'est ok, à chaque appui sur "tirer au sort" on effectue un tirage.

Attention, pour être prise en compte, toute modif doit être validée par un "enter".

N'hésitez pas à me donner votre avis.... En espérant que cela puisse intéresser quelqu'un??.....

1
2
3
4
5
6
7
8
9
procedure TForm11.EditKeyPress(Sender: TObject; var Key: Char);
begin
 if Key=#13 then
    begin
       Key:=#0;
       SelectNext(Sender as TWinControl,true,true);
    end;
end;