Discussion :

[aydin24alain]

Salut, j'ai un probleme d'ouvverture de fichier est-ce que quelqu'un peux m'aider ??

Code :

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

1
2
3
4
5
6
7
8
 
   nouveau := Combobox1.Text;
   exist:=Repertoir+'toto.ats';
   assignfile(fichier,exist);
   append(fichier);
   repeat
       readln(fichier,exist);
   until (exist = FinMemo) or (exist = nouveau);

FinMemo est une constante globale qui ce trouve également à la fin de mon fichier

[Aka Guymelef]

Si je comprends ce que tu veux faire tu veux lire le fichier jusqu'à ce que tu trouve ou bien FinMemo ou bien nouveau c'est cela ?

Dans ce cas ta condition sur until n'est pas bonne until ne doit pas indiquer les conditions d'arrêt mais les conditions pour continuer à boucler. Donc ici :

Code :

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

until ( exist <> FinMemo ) and ( exist <> nouveau );

Je rajouterais même par sécurité :

Code :

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

until ( exist <> FinMemo ) and ( exist <> nouveau ) and not Eof( fichier );

Pour éviter de continuer à lire alors qu'on est arrivé au bout du fichier. Note aussi que l'utilisation du repeat until implique que ton fichier n'est jamais vide, si c'est le cas tu auras un plantage.

[aydin24alain]

Le truc que je comprends pas c'est qu'il bloque sur : eadln(fichier,exist);
Je ne vois pas pourquoi ?

[Aka Guymelef]

Haaa j'ai vu, tu utilises Append qui positionne le curseur en fin de fichier (normalement ça s'utilise pour écrire à la fin) ici tu dois utiliser Reset plutôt que Append.

[aydin24alain]

Mais avec reset je ne peux pas ajouter de texte

[Aka Guymelef]

Selon l'aide de Delphi, si tu n'as pas changé la variable globale FileMode, Reset ouvre le fichier en lecture/écriture.

[aydin24alain]

je sais bien mais il plante juste apres

Code :

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

1
2
3
4
5
6
7
8
9
10
 
   assignfile(fichier,exist);
   reset(fichier);
   repeat
     readln(fichier,exist);
   until (exist = FinMemo) or (exist = nouveau) or eof(fichier);
 
   if exist = FinMemo then
       writeln(fichier,nouveau);  // il plante là
   closefile(fichier);

[aydin24alain]

C'est bon je viens de résoudre le probleme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
   open:=Repertoir+'toto.ats';
   assignfile(fichier,open);
   reset(fichier);
   repeat
     readln(fichier,exist);
   until (exist = FinMemo) or (exist = nouveau) or eof(fichier);
   closefile(fichier);
 
   assignfile(fichier,open);
   append(fichier);
   if exist = FinMemo then
       writeln(fichier,nouveau);
   closefile(fichier);

Sur le coup je suis obligé d'ouvrir mon fichier dans un premier temps en lecture puis de le refermer. Pus de l'ouvrir en rajout pour y insérer mon texte.

[Aka Guymelef]

Pour optimiser un peu tu pourrais faire ça du coup :

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
open:=Repertoir+'toto.ats';
assignfile(fichier,open);
reset(fichier);
repeat
  readln(fichier,exist);
until (exist <> FinMemo) and (exist <> nouveau) and not eof(fichier);
closefile(fichier);
 
if exist = FinMemo then
begin
  assignfile(fichier,open);
  append(fichier);
  writeln(fichier,nouveau);
  closefile(fichier);
end;

Euh d'ailleurs ton code précédent n'est toujours pas bon au niveau de ta condition sur le until, la bonne condition est celle que j'ai mis plus haut dans le bout de code.

[aydin24alain]

Merci

[ero-sennin]

Selon l'aide de Delphi, si tu n'as pas changé la variable globale FileMode, Reset ouvre le fichier en lecture/écriture.

Oui mais il est dit ceci également :

Si F est un fichier texte,F devient en lecture seule.

Voilà le pourquoi de l'erreur avec Reset et un fichier en TextFile

[Aka Guymelef]

Oui mais il est dit ceci également :


Voilà le pourquoi de l'erreur avec Reset et un fichier en TextFile

Je me repends et à l'avenir je ne lirais plus la doc en diagonale