[commons] some fixes

Quick.Commons.pas

@@ -94,6 +94,7 @@ const
   {$ELSE}
   EventStr : array[0..8] of string = ('INFO','SUCC','WARN','ERROR','DEBUG','DONE','TRACE','CRITICAL','EXCEPTION');
   {$ENDIF}
+  CRLF = #13#10;
 type
   TPasswordComplexity = set of (pfIncludeNumbers,pfIncludeSigns);
 
@@ -1748,7 +1749,7 @@ begin
     for value in aArray do
     begin
       sb.Append(value);
-      sb.Append(#10#13);
+      sb.Append(CRLF);
     end;
     Result := sb.ToString;
   finally

Quick.Data.Redis.pas

@@ -1,13 +1,13 @@
 { ***************************************************************************
 
-  Copyright (c) 2015-2021 Kike Pérez
+  Copyright (c) 2015-2022 Kike Pérez
 
   Unit        : Quick.Data.Redis
   Description : Redis client
   Author      : Kike Pérez
   Version     : 1.0
   Created     : 22/02/2020
-  Modified    : 15/10/2021
+  Modified    : 07/03/2022
 
   This file is part of QuickLib: https://github.com/exilon/QuickLib
 
@@ -161,7 +161,6 @@ implementation
 const
 
   DEF_REDIS_PORT = 6379;
-  CRLF = #13#10;
   DEF_CONNECTIONTIMEOUT = 30000;
   DEF_READTIMETOUT = 10000;
 

Quick.YAML.pas

@@ -1,13 +1,13 @@
 { ***************************************************************************
 
-  Copyright (c) 2015-2020 Kike Pérez
+  Copyright (c) 2015-2022 Kike Pérez
 
   Unit        : Quick.YAML
   Description : YAML Object parser
   Author      : Kike Pérez
   Version     : 1.1
   Created     : 17/04/2019
-  Modified    : 03/07/2020
+  Modified    : 07/03/2022
 
   This file is part of QuickLib: https://github.com/exilon/QuickLib
 
@@ -247,10 +247,8 @@ type
 implementation
 
 const
-  CRLF = #13#10;
   NUM_INDENT = 2;
 
-
 { TYamlAncestor }
 
 procedure TYamlAncestor.AddDescendant(const aDescendent: TYamlAncestor);
@@ -512,7 +510,7 @@ begin
   try
     vIndex := 0;
     //normalize tabs
-    data := StringReplace(aData,#9,Spaces(4),[rfReplaceAll]);
+    data := StringReplace(aData,#9,Spaces(NUM_INDENT),[rfReplaceAll]);
     {$IFNDEF LINUX}
     for line in data.Split([#13]) do yaml.Add(StringReplace(line,#10,'',[rfReplaceAll]));
     {$ELSE}
@@ -541,7 +539,7 @@ begin
   try
     vIndex := 0;
     //normalize tabs
-    data := StringReplace(aData,#9,Spaces(4),[rfReplaceAll]);
+    data := StringReplace(aData,#9,Spaces(NUM_INDENT),[rfReplaceAll]);
     {$IFNDEF LINUX}
     for line in data.Split([#13]) do yaml.Add(StringReplace(line,#10,'',[rfReplaceAll]));
     {$ELSE}

QuickLib.inc

@@ -173,6 +173,7 @@
   {.$DEFINE DEBUG_OBJPOOL}
   {.$DEFINE DEBUG_PARAMETERS}
   {.$DEFINE DEBUG_REDIS}
+  {.$DEFINE DEBUG_IOC}
 {$ENDIF}
 
 {.$DEFINE QUICK_HINTSOFF}