Discussion :

[yosthegost]

Bonjour,

Voila mon probleme est que lorsque j'appelle la premiere fois EcrireFichierText tout va bien mais lorsque je la rappel, j'ai une erreur E/S 32.

Mais je ne trouve pas pourkoi.
Voila le code si vous pouvez m'aidez merci.

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
 
procedure TForm1.EcrireFichierTexte(NomFichier : string);
begin
 {$I+}
 AssignFile(Fichier , NomFichier);//'nom_du_fichier.txt');
 
 if FileExists(NomFichier) then
  begin
    DeleteFile(NomFichier);
    Rewrite(Fichier); //si vous voulez ecraser le fichier
    Write(Fichier, spSkinEdit2.Text); //ajoute un mot dans le fichier
    CloseFile(Fichier); //ferme le fichier
  end
 else
   begin
 Rewrite(Fichier); //si vous voulez ecraser le fichier
 Write(Fichier, spSkinEdit2.Text); //ajoute un mot dans le fichier
 CloseFile(Fichier); //ferme le fichier
 end;
end;

[edam]

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.EcrireFichierTexte(NomFichier : string);
begin
 {$I-}  // pour désactivé les exceptoion E/S
 AssignFile(Fichier , NomFichier);//'nom_du_fichier.txt');
 Rewrite(Fichier); //si vous voulez ecraser le fichier siil existe si non vous le créyé
 Write(Fichier, spSkinEdit2.Text); //ajoute un mot dans le fichier
 CloseFile(Fichier); //ferme le fichier
end;

car tu as mis rewrite quelque soit l'etat d'existance de fichier
en plus utilise TStrings si votre fichier est un text

[Eric Sigoillot]

car tu as mis rewrite quelque soit l'etat d'existance de fichier

Rien à voir.

Rewrite permet de réécrire par dessus un fichier, en créant le fichier au passage si celui-ci n'existe pas. Le code que tu as utilisé yosthegost est redondant : inutile d'effacer le fichier avant de réécrire par dessus avec Rewrite. Le fichier sera quoiqu'il arrive écrasé.

Ton code peut donc se résumer à ça :

Code :

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

1
2
3
4
AssignFile(Fichier , NomFichier);//'nom_du_fichier.txt');
Rewrite(Fichier); //si vous voulez ecraser le fichier
Write(Fichier, spSkinEdit2.Text); //ajoute un mot dans le fichier
CloseFile(Fichier); //ferme le fichier

Cependant, ça ne va pas corriger ton erreur ! L'erreur d'entrée/sortie 32 correspond à une violation de partage. Autrement dit, le fichier que tu essaies d'écraser est déjà ouvert en accès exclusif soit par ton application, soit par une autre application. Il faut que le fichier soit refermé pour que tu puisses y accéder.

@++

[yosthegost]

Rien à voir.

Rewrite permet de réécrire par dessus un fichier, en créant le fichier au passage si celui-ci n'existe pas. Le code que tu as utilisé yosthegost est redondant : inutile d'effacer le fichier avant de réécrire par dessus avec Rewrite. Le fichier sera quoiqu'il arrive écrasé.

Ton code peut donc se résumer à ça :

Code :

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

1
2
3
4
AssignFile(Fichier , NomFichier);//'nom_du_fichier.txt');
Rewrite(Fichier); //si vous voulez ecraser le fichier
Write(Fichier, spSkinEdit2.Text); //ajoute un mot dans le fichier
CloseFile(Fichier); //ferme le fichier

Cependant, ça ne va pas corriger ton erreur ! L'erreur d'entrée/sortie 32 correspond à une violation de partage. Autrement dit, le fichier que tu essaies d'écraser est déjà ouvert en accès exclusif soit par ton application, soit par une autre application. Il faut que le fichier soit refermé pour que tu puisses y accéder.

@++

Alors si j'ai bien compri je doit donc refermer mon fichier. car je fait la lecture tel quel :

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
 
function TForm1.LireFichierTexte(NomFichier : string):string;
var
 Chaine: Char;
 Test : string;
begin
 {$I+}
   Test:='';
   AssignFile(fichier , NomFichier);
  if FileExists(NomFichier) then
    begin
    Reset(Fichier);
     while not EOF(Fichier) do
      begin
        Read(fichier, Chaine);
        Test := Test + Chaine;
      end;
       Result:= Test;
    end;
end;

Quand doit -je le fermer?

Merci

[edam]

.

Ton code peut donc se résumer à ça :

Code :

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

1
2
3
4
AssignFile(Fichier , NomFichier);//'nom_du_fichier.txt');
Rewrite(Fichier); //si vous voulez ecraser le fichier
Write(Fichier, spSkinEdit2.Text); //ajoute un mot dans le fichier
CloseFile(Fichier); //ferme le fichier

@++

c'est ce que je veux dire
remplasse {$i+} par {$i-}

[Eric Sigoillot]

Quand doit -je le fermer?

Dès que tu as fini de l'utiliser. A la fin d'une lecture ou d'une écriture, et quoiqu'il arrive, à la fin de ta procédure dans ce cas.

@++

[yosthegost]

Ok merci bocoup