pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:fix TRxMemoryData.locate for vararray values

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8347 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2022-07-13 07:55:15 +00:00
parent 2e2d9f18bf
commit a904c14cc7
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/rx/trunk/rxdb/rxmemds.pas
View File

@ -1458,7 +1458,12 @@ var
I: Integer; I: Integer;
begin begin
if FieldCount = 1 then 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 else begin
Result := True; Result := True;
for I := 0 to FieldCount - 1 do for I := 0 to FieldCount - 1 do