+ do not search (locate) in an empty dataset

git-svn-id: trunk@4303 -

fcl/db/bufdataset.inc

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