imeys a écrit :
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 donne un caractère bizare et non le mot faisant partie des 5. 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:=mot[hasard]; end; merci
|