-
Notifications
You must be signed in to change notification settings - Fork 0
/
untLog.pas
63 lines (47 loc) · 1.27 KB
/
untLog.pas
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
unit untLog;
interface
uses untVariables, untIniSettings, SysUtils, Forms;
procedure LogInint;
procedure Log(inform: string);
implementation
//-----------------------------------------------------------initialize log file
procedure LogInint;
var
f: TextFile;
begin
if (pos('rewrite', logOptions) > 0) then
begin
assignFile(f, currentLogFileName);
rewrite(f);
closeFile(f);
end;
end;
//-----------just add information to log file or log window with date-time stamp
procedure Log(inform: string);
var
f: TextFile;
l: string;
FormatSettings: TFormatSettings;
begin
FormatSettings.LongTimeFormat := 'dd.mm.yyyy hh.nn.ss';
if (pos('file', logOptions) > 0) or (pos('both', logOptions) > 0) then
begin
assignFile(f, currentLogFileName);
if fileExists(currentLogFileName) then append(f) else rewrite(f);
if (inform <> '') then
begin
l := trim(dateTimeToStr(now, FormatSettings)) + chr(9) + inform;
writeln(f, l);
end else
begin
writeln(f, '');
end;
closeFile(f);
application.processMessages;
end;
if (pos('screen', logOptions) > 0) or (pos('both', logOptions) > 0) then
begin
//frmMain.memLog.lines.add(inform);
end;
end;
end.