From 2d9865fba75df3671b8697204d7d73717b268138 Mon Sep 17 00:00:00 2001
From: Loris <63682343+Loris-F@users.noreply.github.com>
Date: Wed, 18 Dec 2024 04:32:35 +0100
Subject: [PATCH] RedisTTL have only one parameter

---
 Quick.Data.Redis.pas | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/Quick.Data.Redis.pas b/Quick.Data.Redis.pas
index fdc5719..eda8c8d 100644
--- a/Quick.Data.Redis.pas
+++ b/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, aValue : string): Integer;
+    function RedisTTL(const aKey: string): Integer;
     function RedisAUTH(const aPassword : string) : Boolean;
     function RedisPING : Boolean;
     function RedisQUIT : Boolean;
@@ -468,8 +468,7 @@ function TRedisClient.RedisLLEN(const aKey : string): Integer;
     Result := response.Response.ToInteger;
   end;
 end;
-
-function TRedisClient.RedisTTL(const aKey, aValue : string): Integer;
+function TRedisClient.RedisTTL(const aKey : string): Integer;
 var
   rediscmd : IRedisCommand;
   response : IRedisResponse;
@@ -477,7 +476,7 @@ function TRedisClient.RedisTTL(const aKey, aValue : string): Integer;
   Result := 0;
   rediscmd := TRedisCommand.Create('TTL')
                .AddArgument(aKey)
-               .AddArgument(aValue);
+               ;
   response := Command(rediscmd.ToCommand);
   if response.IsDone then
   begin