AGS SOFTWARE - Consulenze Informatiche


25/02/2005 : Nuove versioni del programma GESTFIN

Creazione di un file di LOG
CREAZIONE DI UN FILE DI LOG IN UN PROGRAMMA DELPHI ================================================== Variabili Globali; var LogName : String; LogFile : TextFile; WriteLog : boolean; (*************************************************************************) ( Implementazione di CreateLog ) (***********************************************************************) procedure CreateLog; begin AssignFile(LogFile,LogName); Rewrite(LogFile); WriteLog := true end; (***********************************************************************) ( Implementazione di Log ) (***********************************************************************) procedure Log(const AMsg: string); begin if WriteLog then begin writeln(LogFile,AMsg); Flush(LogFile) end end; (***********************************************************************) ( Implementazione di CloseLog ) (*************************************************************************) procedure CloseLog; begin if WriteLog then begin CloseFile(LogFile); WriteLog := false end end; Nell'evento FormCreate della finestra principale : LogName := ExtractPath(Application.ExeName) + 'LOGFILE'; CreateLog; Dove serve: Log("Messaggio da scrivere nel file di LOG"); Nell'evento FormDestroy della finestra principale : CloseLog; ELENCO

Creazione di un file di LOG

CREAZIONE DI UN FILE DI LOG IN UN PROGRAMMA DELPHI
==================================================


Variabili Globali;

   var
      LogName           : String;
      LogFile           : TextFile;
      WriteLog          : boolean;

(**************************************************************************)
(* Implementazione di CreateLog                                           *)
(**************************************************************************)

procedure CreateLog;

begin
   AssignFile(LogFile,LogName);
   Rewrite(LogFile);
   WriteLog := true
end;


(**************************************************************************)
(* Implementazione di Log                                                 *)
(**************************************************************************)

procedure Log(const AMsg: string);

begin
   if WriteLog then
      begin
         writeln(LogFile,AMsg);
         Flush(LogFile)
      end
end;

(**************************************************************************)
(* Implementazione di CloseLog                                            *)
(**************************************************************************)

procedure CloseLog;

begin
   if WriteLog then
      begin
         CloseFile(LogFile);
         WriteLog := false
      end
end;



Nell'evento FormCreate della finestra principale :

   LogName := ExtractPath(Application.ExeName) + 'LOGFILE'; 

   CreateLog;

Dove serve:

   Log("Messaggio da scrivere nel file di LOG");

Nell'evento FormDestroy della finestra principale :

   CloseLog;

ELENCO