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;