paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-24 12:49:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix from Wagner Landgraf: Lookup must return Null if not found

Browse Source
This commit is contained in:
michael 2020-05-13 12:29:37 +00:00
parent 396bda65af
commit ec3efe0ad5
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-db/jsondataset.pas
View File

@ -1839,8 +1839,7 @@ begin
GetFieldList(L,ResultFields); GetFieldList(L,ResultFields);
Result:=inherited Lookup(KeyFields, KeyValues, ResultFields); Result:=inherited Lookup(KeyFields, KeyValues, ResultFields);
RI:=LocateRecordIndex(KeyFields,KeyValues,[]); RI:=LocateRecordIndex(KeyFields,KeyValues,[]);
Result:=RI<>-1; if RI<>-1 then
if Result then
begin begin
SetLength(Vals,L.Count); SetLength(Vals,L.Count);
For I:=0 to L.Count-1 do For I:=0 to L.Count-1 do