Discussion :

[isis1be]

Boujour à tous

Dans le cadre de mes études je doit concevoir un petit jeu d'anagrammes basé sur deux fiches.
sur la première fiche je doit pouvoir entrer le nom prénom du participant et lorque l'on appuie sur le bouton jouer on doit se retrouver sur la deuxième fiche et le prénom inscris sur cette deuxième fiche.
Comment doit-je composer mon code pour prendre ce qu'il y a dans mon editprenom pour le mettre dans le lblnom de le seconde fiche?
et comment faire également pour prendre au hasard un mot et mélanger les lettre le composant pour le mettre ensuite dans un label?
Je vous remercie pour votre aide et à très bientôt.

[Louis Griffont]

Bonjour.

Pour le premier probleme, c'est assez simple

Code Bouton jouer :

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

1
2
3
4
5
 
Form2 := TForm2.Create(Self)
Form2.LabelPrenom.Caption := EditPrenom.Text;
Form2.ShowModal; 
Form2.Free;

Pour le second.

Le mieux est de placer ton dictionnaire dans un TStringList.
De faire un random( MonDico.Count) qui va te renvoyer une valeur entre
0 et MonDico.count-1 directement utilisable pour récuperer l'item de ta liste.

Ensuite, tu fais un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Var 
  i : Integer;
 
Anagramme.Caption := '';
//MonMot etant le la chaine (de type String) récupérer dans ta liste 
while Length( MonMot) > 1 Do      
Begin
   i := Random( Length( MonMot)) + 1;
   Anagramme.Caption := Anagramme.Caption + MonMot[ i];
   Delete( MonMot, i, 1);
End;

Voila y a surement mieux, mais c'est plus cher

Bonne journée

Kwasin