Bonjour
J ai un form avec un bouton Go et un Stop
Le bt stop passe une variable globale STOP à true
Le go declenche la boucle suivante durant laquelle je teste la sortie.
Si la boucle va à son terme je peux recommencer mais si je l interromp, quand je la relance j ai une erreur E/S 32... (sur Rewrite(G)
Pourtant mon fichier est correctement fermé et le test de STOP intervient apres les operations sur le fichier....
Je ne comprends pas.
Merci de votre aide
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 for T := strtoint(ed_T_debut.Text) to strtoint(ed_T_Fin.Text) do begin FileName := ExtractFilePath(application.ExeName) + 'temp\temp_' + inttostr(T) + '.txt'; AssignFile(G, FileName); Rewrite(G); <--- ICI L ERREUR AssignFile(F, Ed_Source.Text); Reset(F); repeat Readln(F, Stg); Writeln(G, Stg); until EOF(F); closefile(F); closefile(G); application.ProcessMessages; if STOP then break; end;
Partager