Discussion :

[lex001]

Salut à tous,
J'ai fais un quiz avec 26 questions. Et j'aimerai permuter l'ordre des questions à chaque execution de mon programme .
je voulais utiliser la foncion ''random'' mais elle peut repeter une question 2 fois.
Une personne a une idee ??
merci

[anapurna]

salut

il te suffit effectivement de faire un ramdom
le truc est de verifier que le n° de question n'a pas deja ete choisie
le plus simple et de prendre un tableau de 26 case

voir ici un exemple d'utilisation

@+ Phil

[Tardiff Jean-François]

Bonjour,

peut être quelque chose de ce type.

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
16
17
18
 
 
function ordreList(list: TStringList);
var
  NouvelleList: TStringList;
 I: Interger;
begin
  NouvelleList := TStringList.Create;
  try
  while List.coun > 0 do begin
    I := Random(List.Count - 1);
    NouvelleList.Add(List[I]);List.Delete(I);
  end;
  List.Text := NouvelleList.Text;
  finally 
    NouvelleList.free;
  end;
end;

[lex001]

merci a tous