Discussion :

[Fraynor]

Bonjour je réalise en ce moment un jeu "Boggle" en projet info et je n'arrive pas à faire fonctionner ma procédure permettant de vérifier qu'un mot entré par le joueur est présent ou non dans un fichier.
Le fichier est de structure texte avec une liste de mots séparés par des retours à la ligne.

Voici ma procédure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program verif;
 
uses wincrt;
var dico : text;
    motcherche,mot,texte : string ;
 
procedure verifmot (var dico:text);
          begin
 
          assign(dico,'dicofile.txt');
 
 
 
          WriteLn ('Entrer le mot à vérifier');
          readln(motcherche);
          reset (dico);
 
          while (not eof(dico)) and (mot <> motcherche) do
          begin
          ReadLn(dico,mot);
          end;
 
          close(dico);
 
if eof(dico) then writeLn('Mot non trouvé') else WriteLn('Bravo vous marquez un point');
 
          end;

Est-ce que je me suis emmelé les pinceaux dans la manipulation de fichiers ?
J'ai parcouru un peu tout ce que je pouvais trouver sur le site (qui est d'ailleurs très completà mais je n'ai rien trouvé qui me permette de régler mon problème seul.

Un grand merci pour toutes les réponses et merci quand même à tous les lecteurs tout simplement

[M.Dlb]

Quel est le code de la runtime error ? On peut pas la deviner

[Alcatîz]

Bonjour !

Pour intercepter proprement les erreurs d'exécution lors de la manipulation de fichiers, on peut utiliser la directive {$I-} et récupérer les codes d'erreur dans avec la fonction IOResult.

Indépendamment de l'erreur, il y a des problèmes conceptuels dans la procédure : il faut tester l'égalité de mot et motcherche à l'intérieur de la boucle :

Code :

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

1
2
3
4
5
6
7
8
9
10
Trouve := False;
while (not eof(dico)) and not Trouve do
          begin
          ReadLn(dico,mot);
          Trouve := (mot = motcherche);
          end;
 
          close(dico);
 
if Trouve then writeLn('Mot non trouvé') else WriteLn('Bravo vous marquez un point');