MOTS CACHES OU MELIMELO
DelphiCool
Messages postés
455
Date d'inscription
mardi 24 juillet 2001
Statut
Membre
Dernière intervention
10 mars 2009
-
27 févr. 2006 à 07:19
hoby500 Messages postés 86 Date d'inscription mardi 25 février 2003 Statut Membre Dernière intervention 26 mai 2019 - 1 mars 2006 à 16:47
hoby500 Messages postés 86 Date d'inscription mardi 25 février 2003 Statut Membre Dernière intervention 26 mai 2019 - 1 mars 2006 à 16:47
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/35845-mots-caches-ou-melimelo
https://codes-sources.commentcamarche.net/source/35845-mots-caches-ou-melimelo
1 mars 2006 à 16:47
Mais, je n'ai pas eu ce message lors de mes tests.
Fini := true au début du test.
Ensuite, on parcourt les mots et si un seul n'a pas été trouvé Fini devient false !!
FINI:=true;
for iMot:=0 to lbMots.Items.Count-1 do
FINI:=FINI and MotsTrouves[iMot];
D'autre part, si le mot marqué est faux (le mot n'existe pas dans la liste) alors le bloc if then ne s'exécute pas !
pour améliorer l'algorithme, on pourrait s'arrêter dès qu'on tombe sur le prmeier mot non trouvé :
FINI:=true;
for iMot:=0 to lbMots.Items.Count-1 do
if not MotsTrouves[iMot] then
begin
FINI:=false;
Break
end;
27 févr. 2006 à 07:19
Cool comme jeu.
Il faut que tu initialise Fini à False au début de ta procedure: FormMouseUp
sinon, quand tu click ou que tu as un mot faux, la réponse est
"Bravo ! tu as trouvé tous les Mots."