Discussion :

[kikica]

Coment faire: je souhaite un code très simple qui stocque dans le code source 10 mots, puis sur un click de boutton il sort de manière aléatoire l'un de ces mots.

Thanks!

[J-P-B]

Salut

un truc du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
const
  mots: array[0..9] of string = ('01', '02', '03', '04', '05', '06', '07', '08', '09', '10');
begin
  randomize;
  showmessage(mots[trunc(random * 10)]);
end;

[Clorish]

Stocker les mots : TStringList, Array of String, ...
Piocher aleatoirement : Random(Max) + ou - 1 selon que les index du tableau commence a 0 ou a 1.

Pour piocher aleatoirment une et une seule fois chaques valeurs ... demanez l'algo

[Cl@udius]

@J-P-B

Je ne mettrais pas le randomize dans la procédure du bouton mais plutôt dans le Create de la fiche ou dans la partie Initialization, pour ne l'appeler qu'une seule fois avant l'appel du random.

@+ Claudius

[J-P-B]

@J-P-B

Je ne mettrais pas le randomize dans la procédure du bouton mais plutôt dans le Create de la fiche ou dans la partie Initialization, pour ne l'appeler qu'une seule fois avant l'appel du random.

@+ Claudius

Remarque judicieuse

[kikica]

Supeeeer, merci beaucoup, ça maaaaarche!!