paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 13:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ do not search (locate) in an empty dataset

Browse Source 
git-svn-id: trunk@4303 -
This commit is contained in:
joost 2006-07-30 00:24:47 +00:00
parent 0a0089a669
commit 21c061421e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fcl/db/bufdataset.inc
View File

@ -827,6 +827,8 @@ begin
// For now it is only possible to search in one field at the same time // For now it is only possible to search in one field at the same time
result := False; result := False;
if IsEmpty then exit;
keyfield := FieldByName(keyfields); keyfield := FieldByName(keyfields);
CheckNull := VarIsNull(KeyValues); CheckNull := VarIsNull(KeyValues);