Changeset 404

Timestamp:

May 22, 2016, 2:31:05 PM (9 years ago)

Author:

RBRi

Message:

another update

File:

• trunk/Library/DebugUnit.pas (modified) (4 diffs)

trunk/Library/DebugUnit.pas

@@ -29 +29 @@
                         LogViewStub,
                         LogObjConstDest,
+                        LogMem,
                         LogDebug
     );
     LogAspects = SET OF LogAspect;
 
+  Function IsLogAspectsEnabled(const aLogAspect: LogAspect) : boolean;
   Procedure LogEvent(const aLogAspect: LogAspect; const anEventDescription: String);
 
@@ -144 +146 @@
       LogViewStub     : result := 'ViewStub';
       LogObjConstDest : result := 'ObjConstDest';
+      LogMem          : result := 'Mem';
       LogDebug        : result := 'Debug';
       else              result := 'Unknown';
@@ -170 +173 @@
       if tmpAspects[i] = 'LogViewStub'     then activeLogAspects := activeLogAspects + [ LogViewStub ];
       if tmpAspects[i] = 'LogObjConstDest' then activeLogAspects := activeLogAspects + [ LogObjConstDest ];
+      if tmpAspects[i] = 'LogMem'          then activeLogAspects := activeLogAspects + [ LogMem ];
       if tmpAspects[i] = 'LogDebug'        then activeLogAspects := activeLogAspects + [ LogDebug ];
     end;
@@ -177 +181 @@
 
 
+  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;