bonjour, j'ai dans ma fiche initialisé 5 mot aléatoire.
Dans un label a coté, un des mots doit apparaitre mais avec toute les lettre mélangées.
En faite c'est un jeu et la personne doit retrouvé le mot exactement.
Comment dois-je faire pour faire arriver un des 5 mot créer dans la fiche dans le label?
Et avec le code que j'ai fait, il me met tout le temps ANAGRAMME dans le label qui est le nom de la fiche donc ce n'est pas correct.
Pour mélanger les lettre je verrai cela après, une chose à la fois.
voici deja une partie de mon code qui concerne cette partie ci:
procedure TFSuite.FormCreate(Sender: TObject);
begin
randomize;
mot[1]:='scanner';
mot[2]:='microprocesseur';
mot[3]:='hertz';
mot[4]:='claviers';
mot[5]:='reseau';
Initialise;
end;
procedure TFSuite.Initialise;
begin
essaie:=0; // mise à zero du nombre d'essai
errperm:=1; // nombre d'erreur permise
hasard:=random(5)+1; //tirage au sort du mot
end;
end.
procedure TFSuite.LBLmotsClick(Sender: TObject);
begin
LBLmots.caption:=Fsuite.Caption;
end;
merci
Partager