fonction random

Question

Bonjour, 

Dans le cadre de mon cours de delphi je dois développer un programme qui en ce qui me concerne, est le jeu du pendu.
Je me trouve confronté à un problème qui est le suivant :

J'ai défini des mots en incluant chaque lettre du mot dans une case d'un tableau de type Tmot par exemple:
mot[1]:='b';
mot[2]:='o';
mot[3]:='n';

mot2[1]:='e';
mot2[2]:='t'; etc...

J'ai ensuite créé un tableau de type Tdico=array[1..10] of Tmot; et dans ce tableau j'ai mis mes mots:
dico[1]:=mot;
dico[2]:=mot2;

Je souhaiterais donc faire en sorte qu'en cliquant sur un bouton, un des mots soit pris au hasard pour être le mot à découvrir et mon problème est que je n'arrive pas à utiliser la fonction random, je cherche quelque chose du type:
MotATrouver:=random(dico[i]);

Merci d'avance de votre aide!
Cordialement,
Franck.

f0xi · Answer

Mot := Dico[ Random( Length(Dico)  ) ];

silversword666 · Answer

MErci f0xi!

florenth · Answer

Salut !
pourquoi ne pas faire une TStringList pour le dico ?

Comme ça, pour ajouter un mot, tu fais: dico.Add('salut');
Et pour le mot aléatoire, c'est Dico[Random(Dico.Count)]

C'est beaucoup plus simple que d'utiliser un tableau et tu as les mêmes fonctionnalités voire plus sans rien rajouter !

++

silversword666 · Answer

Bonsoir, 

En fait j'avais choisi cette méthode car de cette façon j'affiche les lettres correctes dans des Labels : un label par lettre, via une boucle :
for i:=1 to 12 do begin
  if edit1.text=mot[i] then
  tableau[i].Caption:=edit1.Text
  else Label2.Caption:=Label2.Caption+edit1.Text;
  end;

Puis-je faire de meme avec une TStringList?

Merci d'avance!

silversword666 · Answer

J'ai oublié de préciser que edit1 est le edit ou l'on propose une lettre et aussi que chaque case de tableau[i]  est un label... Donc un label affiche une lettre du mot. De plus, le "else" ne fonctionne pas, en effet, les lettres correctes s'inscrivent aussi dasn label2 alors qu'il est dédié au lettres qui ne sont pas dans le mot.

Merci d'avance!

florenth · Answer

Mais tu peux ausi faire ça avec un TStringList, et en plus simple (en partant du fait que edit1 ne contient qu'une lettre, ce qui serait logique):

var P: Integer; begin P := Pos(Edit1.Text, Dico[IndexDuMotDemande]); if P > 0 then Tableau[P].Caption := Dico[IndexDuMotDemande][P] else Label2.Caption := Label2.Caption + Dico[IndexDuMotDemande][P]; end;

Et les variables globales sont définies comme suit :

var Form1: TForm1; Dico: TStringList; IndexDuMotDemande: Integer;

silversword666 · Answer

Bonjour, 


Tout d'abord, merci florenth ta méthode a parfaitement fonctionné et m'a bcp aidé! juste une chose si quelqu'un d'autre se sert de cette méthode, avant de mettre des mots dans le dico : dico.Add('salut'); il faut créer le dico :   dico:= TStringList.Create;

Ensuite, j'aimerais savoir si c'est possible de compter le nb de caractères affichés dans un panel?

Merci d'avance!

silversword666 · Answer

Merci bien florenth!! Ton TStringList m'a vraiment bien aidé! Je posterais le projet fini dès que possible!

Bacterius · Answer

Bonjour,
silversword666 comment peut-on avoir des "cours de delphi", et ou peut-on les effectuer s'il te plait :) j'aimerais bien avoir des cours :p

Cordialement, Bacterius !

silversword666 · Answer

Bonsoir Bacterius, 

Pour ma part, j'ai eu des cours de Delphi en première année de ma formation. Il s'agit du DEUST AMRL à l'université d'Orsay. C'est la seule façon que je connaisse pour avoir des cours de Delphi que je connaisse (mais certainement pas la seul) et si tu veux suivre cette vois, il faut que tu aies le bac...
En espérant t'avoir aidé!
Cordialement, 
SSW666

Bacterius · Answer

Bonsoir,
merci beaucoup silversword666 j'ai bien pris note :)
merci de m'avoir répondu si vite et je te souhaite une bonne continuation !

Cordialement, Bacterius !

Fonction random

11 réponses

Votre réponse

Discussions similaires