Discussion :

[Duan]

Après avoir travailler sur deux fichiers .txt, je veux supprimer le premier et renommer le second.
Code utilisé:

Code :

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

1
2
3
4
5
6
7
8
 Repertoire:=ExtractFilePath(Application.ExeName);
AssignFile(tempF2,Repertoire+'Temporaire.txt'); //Association à tempF2
AssignFile(tempF,Repertoire+'Messages.txt');    //Association à tempF
(traitement des 2  fichiers)
CloseFile(tempF2);  //Fermeture Association à 'Temporaire.txt' 
CloseFile(tempF); //Fermeture Association à 'Messages.txt' 
DeleteFile(Repertoire+'Messages.txt');
RenameFile(Repertoire+'Temporaire.txt',Repertoire+'Messages.txt');

Les 2 dernières lignes ne se font pas; normalement les fichiers devraient être fermés après fermeture de l'association ???
Si j'exécute seulement ceux-ci, pas de prob. le premier est supprimer et le second est renommé... Y a t'il quelqu'un qui sache ce qui cloche avec mon code ou comment fermer ces fichiers.


Merci
Duan

[neilbgr]

C'est plutot bizarre, il doit nous manquer un élément, car le code suivant fonctionne très bien :

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
28
29
procedure TForm1.btn1Click(Sender: TObject);
var
  tempF,
  tempF2: TextFile;
  vLigne,
  Repertoire: string;
begin
  Repertoire := ExtractFilePath(Application.ExeName);
 
  AssignFile(tempF2,Repertoire+'MessagesTmp.txt'); //Association à tempF2
  AssignFile(tempF,Repertoire+'Messages.txt'); //Association à tempF
 
  Reset(tempF);
  Rewrite(tempF2);
 
  while not eof(tempF) do
    begin
      ReadLn(tempF, vLigne);
      WriteLn(tempF2, vLigne);
    end;
 
  WriteLn(tempF2, 'Toto');
 
  CloseFile(tempF2); //Fermeture Association à 'Temporaire.txt'
  CloseFile(tempF); //Fermeture Association à 'Messages.txt'
 
  DeleteFile(Repertoire+'Messages.txt');
  RenameFile(Repertoire+'MessagesTmp.txt',Repertoire+'Messages.txt');
end;

Quel version de delphi as-tu ? Quel windows ?
N'y aurait-il pas un autre logiciel qui prendrait la main quelques secondes sur des fichiers textes pour je ne sais quelles raisons ?

[[Silk]]

Salut,
ce que tu peux essayer de faire c'est de mettre ton code dans un try...finally :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Repertoire:=ExtractFilePath(Application.ExeName);
AssignFile(tempF2,Repertoire+'Temporaire.txt'); //Association à tempF2
AssignFile(tempF,Repertoire+'Messages.txt'); //Association à tempF
Try
  (traitement des 2 fichiers)
finally
  CloseFile(tempF2); //Fermeture Association à 'Temporaire.txt'
  CloseFile(tempF); //Fermeture Association à 'Messages.txt'
end;
DeleteFile(Repertoire+'Messages.txt');
RenameFile(Repertoire+'Temporaire.txt',Repertoire+'Messages.txt');

comme ça, tu est sur que tes 2 fichiers sont fermés avant l'execution des 2 lignes suivantes.

[Duan]

Merci Neilbr et SILK pour vos suggestions et commentaires. En fait, je crois que l'erreur venait que cette partie de code était incluse dans une procédure 'FaitTri' qui comme le nom l'indique faisait un tri de mon fichier principal dans un fichier temporaire. Il est appelé durant une procédure d'ajout d'un message et ma variable tempF était toujours active même à la fermeture de 'FaitTri' ce qui semble , empêchait la suppression de mon fichier. J'ai ajouté le Try de SILK par précaution supplémentaire.

Encore une fois merci à vous deux ainsi qu'à tous ceux qui se donnent la peine de répondre à nos discussions.

Duan