EasyConfig/DebugHelper.pas at master · DeepKit/EasyConfig · GitHub

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
unit DebugHelper;

interface

uses
  System.SysUtils, System.Classes;

procedure LogMessage(const AMessage: string);
procedure LogError(const AError: string);
procedure LogDebug(const AModule, AMessage: string);
procedure ClearLogs;

implementation

uses
  System.IOUtils;

const
  LOG_FILE = 'debug.log';

procedure LogMessage(const AMessage: string);
var
  F: TextFile;
begin
  try
    AssignFile(F, LOG_FILE);
    if FileExists(LOG_FILE) then
      Append(F)
    else
      Rewrite(F);
    Writeln(F, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now) + ' - INFO: ' + AMessage);
    CloseFile(F);
  except
    // 蹇界暐鏃ュ織閿欒
  end;
end;

procedure LogError(const AError: string);
var
  F: TextFile;
begin
  try
    AssignFile(F, LOG_FILE);
    if FileExists(LOG_FILE) then
      Append(F)
    else
      Rewrite(F);
    Writeln(F, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now) + ' - ERROR: ' + AError);
    CloseFile(F);
  except
    // 蹇界暐鏃ュ織閿欒
  end;
end;

procedure LogDebug(const AModule, AMessage: string);
var
  F: TextFile;
begin
  try
    AssignFile(F, LOG_FILE);
    if FileExists(LOG_FILE) then
      Append(F)
    else
      Rewrite(F);
    Writeln(F, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now) + ' - DEBUG [' + AModule + ']: ' + AMessage);
    CloseFile(F);
  except
    // 蹇界暐鏃ュ織閿欒
  end;
end;

procedure ClearLogs;
begin
  if FileExists(LOG_FILE) then
    DeleteFile(LOG_FILE);
end;

initialization
  LogMessage('DebugHelper 鍒濆鍖?);

finalization
  LogMessage('DebugHelper 缁撴潫');

end.