Bonjour,
Je coince sur un truc tout bête et j'y perds mon latin (mon Delphi plutôt :D).
Voila un bout de code tout bête qui ouvre un fichier avec gestion d'erreur (try .. except). Volontairement le fichier n'existe pas, il y a donc une erreur 103 qui m'envoi dans le except. Normalement le except ne propage plus l'erreur, or à la fin du except j'ai une message box "erreur E/S 103". Comment éviter cela? Soit c'est l'age, soit je ne comprends plus rien aux exceptions! 8O
Voici le code:
Merci de vos lumières.
Je coince sur un truc tout bête et j'y perds mon latin (mon Delphi plutôt :D).
Voila un bout de code tout bête qui ouvre un fichier avec gestion d'erreur (try .. except). Volontairement le fichier n'existe pas, il y a donc une erreur 103 qui m'envoi dans le except. Normalement le except ne propage plus l'erreur, or à la fin du except j'ai une message box "erreur E/S 103". Comment éviter cela? Soit c'est l'age, soit je ne comprends plus rien aux exceptions! 8O
Voici le code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var Chem:String;
F_Data:TextFile;
S_Final:AnsiString;
Erreur:Boolean;
begin
S_Final:='Test';
Chem:='C:\';
ForceDirectories(Chem);
Erreur:=false;
try
AssignFile(F_Data,Chem+'Data.dat');
reset(F_Data);
writeln(F_Data,S_Final);
except
Erreur:=true;
end;
CloseFile(F_Data);
