From aca41b325dbf73601635a0cd003ce7274bee48b8 Mon Sep 17 00:00:00 2001
From: Daniele Teti <d.teti@bittime.it>
Date: Sun, 26 Jan 2025 18:27:50 +0100
Subject: [PATCH] Improved tryfindsessionbyid using count instead of loading
 full object

---
 sources/MVCFramework.Session.Database.pas | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/sources/MVCFramework.Session.Database.pas b/sources/MVCFramework.Session.Database.pas
index 270f3d4f..f46c7d24 100644
--- a/sources/MVCFramework.Session.Database.pas
+++ b/sources/MVCFramework.Session.Database.pas
@@ -198,16 +198,9 @@ procedure TMVCWebSessionDatabaseFactory.TryDeleteSessionID(const ASessionID: Str
 end;
 
 function TMVCWebSessionDatabaseFactory.TryFindSessionID(const aSessionID: String): Boolean;
-var
-  lSess: TMVCSessionActiveRecord;
 begin
   inherited;
-  lSess := TMVCActiveRecord.SelectOneByRQL<TMVCSessionActiveRecord>(Format('eq(session_id, "%s")', [aSessionID]), False);
-  try
-    Result := Assigned(lSess);
-  finally
-    lSess.Free;
-  end;
+  Result := TMVCActiveRecord.Count<TMVCSessionActiveRecord>(Format('eq(session_id, "%s")', [aSessionID])) = 1;
 end;