Discussion :

[jeanmy]

voici mon code

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.Fuji(Index :integer);
Var
   Fich_IN,Fich_OUT   : TStrings;
   x,i : integer;
   champs,cley,Ligne_out,str,Sf   : string;
   LastTime : Ttime;
begin
Try
 
//lecture du fichier in (attention pas de gestion de fichier non présent
Fich_in:=TStringList.Create;
Fich_In.LoadFromFile(Mach_Ch.strings[index]);
 
................. //Suite de mon code 
 
except
   //ecriture des l'erreur dans un fichier log
   fichierlog('erreur     | Lire      | '+Mach_des[index]);  
end;
end;

Je voudrais en cas d'erreur (quelque soit l'erreur) aucun fenêtre apparaisse

Comment Faire ?

Merci

[portu]

Normalement, si le débogueur est bien désactivé , tu ne devrais pas avoir de message d'erreur.

[Pascal Jankowski]

Si tu exécutes ton application non plus à partie de Delphi mais en lançant l'exécutable tu n'auras pas de message d'erreur.

[jeanmy]

Je veins de faire un test.

J'ai lancer application sans delphi d'ouvert.

J'ai toujours une message d'erreur qui apparait

[Laurent Dardenne]

Salut,
dans fichierlog as-tu une gestion des exceptions ?

[jeanmy]

J'ai de modification dans ma fonction Fuji.

Puis recompiler.

et maintenant, je n'ai plus de fenetre d'erreur