Changeset 330 for branches/2.19_branch/NewView/DebugUnit.pas

Timestamp:

Aug 30, 2008, 9:01:55 PM (17 years ago)

Author:

RBRi

Message:

improved logging

File:

• branches/2.19_branch/NewView/DebugUnit.pas (modified) (2 diffs)

branches/2.19_branch/NewView/DebugUnit.pas

@@ -34 +34 @@
     LogAspects = SET OF LogAspect;
 
+  Function IsLogAspectsEnabled(const aLogAspect: LogAspect) : boolean;
   Procedure LogEvent(const aLogAspect: LogAspect; const anEventDescription: String);
 
@@ -166 +167 @@
 
 
+  Function IsLogAspectsEnabled(const aLogAspect: LogAspect) : boolean;
+  Begin
+    result := aLogAspect IN activeLogAspects;
+  End;
+
+
   Procedure LogEvent(const aLogAspect: LogAspect; const anEventDescription: String);
   Var
     tmpMessage : String;
   Begin
-    if (aLogAspect IN activeLogAspects) then
+    if IsLogAspectsEnabled(aLogAspect) then
     begin
       tmpMessage := 'Log[' + GetAspectPrefix(aLogAspect) + ']  ' + anEventDescription;