ESPION POUR TROUVER LES BUGS D'UN PROGRAMME
matsky
Messages postés
24
Date d'inscription
mardi 23 avril 2002
Statut
Membre
Dernière intervention
15 décembre 2009
-
23 juin 2004 à 14:21
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 - 16 nov. 2004 à 20:20
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 - 16 nov. 2004 à 20:20
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/23873-espion-pour-trouver-les-bugs-d-un-programme
https://codes-sources.commentcamarche.net/source/23873-espion-pour-trouver-les-bugs-d-un-programme
16 nov. 2004 à 20:20
uses Classes;
var STL : TStringList;
procedure OnChargement;
begin
STL.Clear; //pas nécessairement obligatoire
STL.LoadFromFile(LeFichier);
end;
procedure OnBug(Msg:string);
begin
STL.Add(LHeure+Msg);
end;
procedure OnSurLePointDeSeTerminer;
begin
STL.SaveToFile(LeFichier);
STL.Clear; //pas nécessairement obligatoire
end;
initialization
STL:=TStringList.Create;
finalization
STL.Free;
end.
Par contre, si l'EXE se plante royalement, le LOG n'est pas enregistré. Il faut savoir ce qu'on veut...
25 juin 2004 à 18:22
23 juin 2004 à 14:21
un plus serait de ne pas oublier de grapiller le + possible d'infos pour une session de débogage.
except on e:exception do
SaveLog(Erreur dans NomProc() '
+'dans le bloc : trucmuche '
+'Message :'+e.Massage);
@+