Merge pull request #142 from Loris-F/master

RedisTTL have only one parameter

Author: exilon

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,16 +468,15 @@ 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;
 begin
   Result := 0;
   rediscmd := TRedisCommand.Create('TTL')
                .AddArgument(aKey)
-               .AddArgument(aValue);
+               ;
   response := Command(rediscmd.ToCommand);
   if response.IsDone then
   begin