From a904c14cc7bf977984bdab3c3cb8c107ff9945f8 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 13 Jul 2022 07:55:15 +0000
Subject: [PATCH] RxFPC:fix TRxMemoryData.locate for vararray values

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8347 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxdb/rxmemds.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/components/rx/trunk/rxdb/rxmemds.pas b/components/rx/trunk/rxdb/rxmemds.pas
index e45ee2b2f..f8decb224 100644
--- a/components/rx/trunk/rxdb/rxmemds.pas
+++ b/components/rx/trunk/rxdb/rxmemds.pas
@@ -1458,7 +1458,12 @@ var
     I: Integer;
   begin
     if FieldCount = 1 then
-      Result := CompareField(TField(Fields.First), KeyValues)
+    begin
+      if VarIsArray(KeyValues) then
+        Result := CompareField(TField(Fields.First), KeyValues[VarArrayLowBound(KeyValues, 1)])
+      else
+        Result := CompareField(TField(Fields.First), KeyValues)
+    end
     else begin
       Result := True;
       for I := 0 to FieldCount - 1 do