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; function RedisZRANGEBYSCORE(const aKey : string; aMinScore, aMaxScore : Int64) : TArray; 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