Salut,
Pour créer un fichier log, tu peux utiliser une méthode assez simple :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
var // variables globales
LogPret : boolean = false; // Init
...
Procedure CreeLog;
var
Log : Text; // 'Text' = fichier texte
begin
LogPret := false;
AssignFile (Log, 'Journal.log') // Assigne ton Log à un dossier+fichier
// Ici, le dossier n'etant pas précisé, on se
// retrouve dans le meme dossier que l'appli
{I-} // On désactive la gestion d'erreur E/S
Rewrite (log); // crée ou écrase
{I+} // puis la réactive
if IoResult <> 0 then // Comme ça on peut gérer l'erreur nous-même
begin
showmessage(SysErrorMessage(GetLastError)); // ça c'est pour avoir le n° de l'erreur
Closefile (Log); // Libère 'Log'
exit; // On Sort de la procedure
end;
LogPret := true; // Ok, le log est prêt
WriteLn ( Log, ' Lancement Ok, vérification sauvegarde ... ' );
end;
... |
Ensuite, tu ecrits dans ton fichier en manipulant la variable 'Log'.
if LogPret then WriteLn ( Log, 'Gr7_Gestion au Pas 3' );
Et ça pour chaque élements à 'logger'.
N'oublie pas de fermer ton fichier (et libérer par la même occasion la variable Log) dès que tu n'as plus besoin du log.
Tu peux lancer ta procedure CreeLog dès le lancement de ton appli, dans l'évenement OnCreate de ta fiche (sauf si c'est une appli console), et faire de même pour le CloseFile, dans ton évenement OnClose.
Voila !
Après à toi de voir pour changer les noms des fichiers log à chaque lancement afin de pouvoir les concerver. Sache que tu peux tester la présence d'un fichier avec la fonction FileExists ('fichier') ...
A pauffiner à souhait ...
Bonne prog.
Partager