@@ -117,10 +117,10 @@ var
117117 formatted: String;
118118begin
119119 formatted := Format(text, vars);
120- Self.AddLine(Format('[Info] : %s', [formatted]));
120+ Self.AddLine(Format('%s: [Info]: %s', [GetTimeStamp(), formatted]));
121121 if not Self.RepeatedMessages and (Self.PreviousMessage = formatted) then
122122 Exit;
123- WriteLn(GetDebugLn(Self.Name, formatted, True ));
123+ WriteLn(GetDebugLn(Self.Name, formatted, False ));
124124 Self.PreviousMessage := formatted;
125125end;
126126
@@ -129,33 +129,33 @@ var
129129 formatted: String;
130130begin
131131 formatted := Format(text, vars);
132- Self.AddLine(Format('[Success] : %s', [formatted]));
133- WriteLn(GetDebugLn(Self.Name, formatted, ELogLevel.SUCCESS, True ));
132+ Self.AddLine(Format('%s: [Success]: %s', [GetTimeStamp(), formatted]));
133+ WriteLn(GetDebugLn(Self.Name, formatted, ELogLevel.SUCCESS, False ));
134134end;
135135
136136procedure TLogger.Warn(text: String; vars: TVariantArray = []);
137137var
138138 formatted: String;
139139begin
140140 formatted := Format(text, vars);
141- Self.AddLine(Format('[Warn] : %s', [formatted]));
142- WriteLn(GetDebugLn(Self.Name, formatted, ELogLevel.WARN, True ));
141+ Self.AddLine(Format('%s: [Warn]: %s', [GetTimeStamp(), formatted]));
142+ WriteLn(GetDebugLn(Self.Name, formatted, ELogLevel.WARN, False ));
143143end;
144144
145145procedure TLogger.Error(text: String; vars: TVariantArray = []);
146146var
147147 formatted: String;
148148begin
149149 formatted := Format(text, vars);
150- Self.AddLine(Format('[ERROR] : %s', [formatted]));
151- WriteLn(GetDebugLn(Self.Name, formatted, ELogLevel.ERROR, True ));
150+ Self.AddLine(Format('%s: [ERROR]: %s', [GetTimeStamp(), formatted]));
151+ WriteLn(GetDebugLn(Self.Name, formatted, ELogLevel.ERROR, False ));
152152end;
153153
154154procedure TLogger.Exception(text: String; vars: TVariantArray = []);
155155var
156156 formatted: String;
157157begin
158158 formatted := Format(text, vars);
159- Self.AddLine(Format('[ERROR] : %s', [formatted]));
160- raise GetDebugLn(Self.Name, formatted, ELogLevel.ERROR, True );
159+ Self.AddLine(Format('%s: [ERROR]: %s', [GetTimeStamp(), formatted]));
160+ raise GetDebugLn(Self.Name, formatted, False );
161161end;
0 commit comments