Updated info

Author: exilon

Delphinus.Info.json

@@ -6,9 +6,9 @@
     "license_file": "LICENSE.txt",
     "platforms": "Win32;Win64;OSX32;Android;IOSDevice32;IOSDevice64;Linux64",
     "package_compiler_min": 22,
-    "package_compiler_max": 35,
+    "package_compiler_max": 36,
     "compiler_min": 22,
-    "compiler_max": 35,
+    "compiler_max": 36,
     "first_version": "1.0",
     "report_url": "",
     "dependencies":

Quick.Data.Redis.pas

@@ -144,7 +144,7 @@   TRedisClient = class
     function RedisZRANGE(const aKey : string; aStartPosition, aEndPosition : Int64) : TArray<string>;
     function RedisZRANGEBYSCORE(const aKey : string; aMinScore, aMaxScore : Int64) : TArray<TRedisSortedItem>;
     function RedisLLEN(const aKey : string): Integer;
-    function RedisTTL(const aKey: string): Integer;
+    function RedisTTL(const aKey, aValue : string): Integer;
     function RedisAUTH(const aPassword : string) : Boolean;
     function RedisPING : Boolean;
     function RedisQUIT : Boolean;
@@ -469,15 +469,15 @@ function TRedisClient.RedisLLEN(const aKey : string): Integer;
   end;
 end;
 
-function TRedisClient.RedisTTL(const aKey : string): Integer;
+function TRedisClient.RedisTTL(const aKey, aValue : string): Integer;
 var
   rediscmd : IRedisCommand;
   response : IRedisResponse;
 begin
   Result := 0;
   rediscmd := TRedisCommand.Create('TTL')
                .AddArgument(aKey)
-               ;
+               .AddArgument(aValue);
   response := Command(rediscmd.ToCommand);
   if response.IsDone then
   begin

QuickLib.inc

@@ -1,7 +1,7 @@
 {
     This file is part of QuickLib: https://github.com/exilon/QuickLib
 
-    QuickLibs. Copyright (C) 2022 Kike Pérez
+    QuickLibs. Copyright (C) 2024 Kike Pérez
       Exilon - https://www.exilon.es
 
      ***************************************************************************
@@ -169,6 +169,26 @@
         {$define NEXTGEN} //compatibility with older delphis
       {$endif}
     {$endif}
+    {$if CompilerVersion >= 36.0} //Delphi RX12 Athens
+      {$define DELPHIRX12_UP}
+	    {$define DELPHIATHENS_UP}
+      {$UNDEF DELPHILINUX}
+      {$if defined(POSIX)}
+        {$DEFINE LINUX}
+        {$if defined(CPUARM)}
+          {$if defined(MACOS)}
+          {$ELSE}
+            {$DEFINE ANDROID}
+          {$ENDIF}
+        {$ELSE}
+          {$DEFINE LINUX}
+          {$DEFINE DELPHILINUX}
+        {$ENDIF}
+      {$ENDIF}
+      {$if defined(ANDROID) OR defined(IOS)}
+        {$define NEXTGEN} //compatibility with older delphis
+      {$endif}
+    {$endif}
   {$else}
     //Delphi 5 or older
     {$define DELPHI6OROLDER}

README.md

@@ -1,6 +1,6 @@
 ![alt text](docs/QuickLib.png "QuickLib") 
 
-QuickLib is a delphi/Firemonkey(Windows, Linux, Android, OSX & IOS) and fpc(Windows & Linux) library containing interesting and quick to implement functions, created to simplify application development and crossplatform support and improve productivity. Delphi XE8 - Delphi 11 Alexandria supported.
+QuickLib is a delphi/Firemonkey(Windows, Linux, Android, OSX & IOS) and fpc(Windows & Linux) library containing interesting and quick to implement functions, created to simplify application development and crossplatform support and improve productivity. Delphi XE8 - Delphi 12 Athens supported.
 
 ## Give it a star
 Please "star" this project in GitHub! It costs nothing but helps to reference the code.
@@ -74,6 +74,7 @@ If you find this project useful, please consider making a donation.
 
 **Updates:**
 
+* NEW: RAD Studio 12 supported
 * NEW: RAD Studio 11 supported
 * NEW: Condition checks
 * NEW: Commonly used RegEx validations