GitHub-Mirror/x2log
1
0
Fork 0
mirror of synced 2024-12-04 08:33:10 +01:00
Code Issues Projects Releases Wiki Activity

Added: Category is now added to log files

Browse Source
This commit is contained in:
Mark van Renswoude 2014-10-22 09:38:51 +00:00
parent c5bb17cb86
commit d7b18972c3
2 changed files with 26 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
X2Log.Constants.pas
View File

@ -21,14 +21,32 @@ resourcestring
X2Log.Observer.LogFile X2Log.Observer.LogFile
} }
{ The format of the log line without a category
0: Message
}
LogFileLineNoCategory = '%0:s';
{ The format of the log line with a category
0: Message
1: Category
}
LogFileLineCategory = '%1:s: %0:s';
{ Date format used to determine the file name of detail files } { Date format used to determine the file name of detail files }
LogFileNameDateFormat = 'yyyymmdd_hhnn'; LogFileNameDateFormat = 'yyyymmdd_hhnn';
{ Date format used in log files } { Date format used in log files }
LogFileLineDateFormat = 'yyyy-mm-dd hh:nn'; LogFileLineDateFormat = 'yyyy-mm-dd hh:nn';
{ The text added to the message if details are stored externally } { The format of the log message when details are stored externally
LogFileLineDetails = ' (details: %s)';
0: Message
1: Details filename
}
LogFileLineDetails = '%0:s (details: %1:s)';
{ {

8
X2Log.Observer.LogFile.pas
View File

@ -117,7 +117,11 @@ var
begin begin
ForceDirectories(ExtractFilePath(FileName)); ForceDirectories(ExtractFilePath(FileName));
errorMsg := AEntry.Message;
if Length(AEntry.Category) > 0 then
errorMsg := Format(GetLogResourceString(@LogFileLineCategory), [AEntry.Message, AEntry.Category])
else
errorMsg := Format(GetLogResourceString(@LogFileLineNoCategory), [AEntry.Message]);
if Supports(AEntry.Details, IX2LogDetailsStreamable, logDetailsStreamable) then if Supports(AEntry.Details, IX2LogDetailsStreamable, logDetailsStreamable) then
begin begin
@ -160,7 +164,7 @@ begin
// ErrorLogs.Add(reportFileName); // ErrorLogs.Add(reportFileName);
errorMsg := errorMsg + Format(GetLogResourceString(@LogFileLineDetails), [ExtractFileName(detailsFileName)]); errorMsg := Format(GetLogResourceString(@LogFileLineDetails), [errorMsg, ExtractFileName(detailsFileName)]);
break; break;
end; end;
until False; until False;