Bonjour,
Avec le code suivant :
1) le fichier qui existait n'existe plus
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Procedure UpdateFile(const FileName: TFileName; const Rec: TMyFile); var F : TextFile; begin {I-} AssignFile(F,FileName); If FileExists(FileName) then Append(F) else Rewrite(F); WriteLn(F,'NANE'+#9+Rec.Name); // ..................... une suite de WriteLn CloseFile(F); {I+} end;
2) en traçant il semble qu'il execute le premier WriteLn puis saute à end sans même passer par la ligne CloseFile()
Que se passe-t'il ?
Partager