Minor refactor.

kmzbrnoI · Feb 28, 2023 · c0ce36e · c0ce36e
1 parent b7ee791
commit c0ce36e
Showing 1 changed file with 14 additions and 7 deletions.
diff --git a/src/hw/TechnologieRCS.pas b/src/hw/TechnologieRCS.pas
@@ -307,14 +307,21 @@ procedure TRCS.DllOnLog(Sender: TObject; logLevel: TRCSLogLevel; msg: string);
   if (not Self.log) then
     Exit();
 
-  if (logLevel = TRCSLogLevel.llErrors) then
-    Logging.Log(UpperCase(Self.LogLevelToString(logLevel)) + ': ' + msg, llError, lsRCS)
-  else if (logLevel = TRCSLogLevel.llWarnings) then
-    Logging.Log(UpperCase(Self.LogLevelToString(logLevel)) + ': ' + msg, llWarning, lsRCS)
-  else if (logLevel = TRCSLogLevel.llDebug) then
-    Logging.Log(UpperCase(Self.LogLevelToString(logLevel)) + ': ' + msg, llDebug, lsRCS)
+  var systemLogLevel: TLogLevel;
+  case (logLevel) of
+    TRCSLogLevel.llErrors:
+      systemLogLevel := TLogLevel.llError;
+    TRCSLogLevel.llWarnings:
+      systemLogLevel := TLogLevel.llWarning;
+    TRCSLogLevel.llRawCommands:
+      systemLogLevel := TLogLevel.llDetail;
+    TRCSLogLevel.llDebug:
+      systemLogLevel := TLogLevel.llDebug;
   else
-    Logging.Log(UpperCase(Self.LogLevelToString(logLevel)) + ': ' + msg, llInfo, lsRCS);
+    systemLogLevel := TLogLevel.llInfo;
+  end;
+
+  Logging.Log(UpperCase(Self.LogLevelToString(logLevel)) + ': ' + msg, systemLogLevel, lsRCS);
 end;
 
 procedure TRCS.DllOnModuleChanged(Sender: TObject; module: Cardinal);