Fixed issue where an exception is raised if KEYS() finds no matches a…

…nd returns null (#733)
danieleteti · Mar 8, 2024 · ec5a804 · ec5a804
1 parent b9fcc04
commit ec5a804
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/sources/MVCFramework.Controllers.CacheController.pas b/sources/MVCFramework.Controllers.CacheController.pas
@@ -265,14 +265,17 @@ procedure TMVCCacheController.SetExposeCache(const AValue: Boolean);
 
 procedure TMVCCacheController.DeleteCacheKey(const AKey: string = '');
 var
-  AKeys: TArray<string>;
+  AKeys: TRedisArray;
   ARedis: IRedisClient;
 begin
   ARedis := RedisClient;
   if AKey <> '' then
   begin
-    AKeys := ARedis.KEYS(AKey).ToArray;
-    ARedis.DEL(AKeys);
+    AKeys := ARedis.KEYS(AKey);
+    if AKeys.HasValue then
+    begin
+      ARedis.DEL(AKeys.ToArray);
+    end;
   end
   else
   begin