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

* Show a proper error-message when trying to do a locate on a uni-directional dataset

Browse Source 
git-svn-id: trunk@19910 -
This commit is contained in:
joost 2011-12-29 16:24:14 +00:00
parent 06f0e3f9fa
commit 0fcb5ae687
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-db/src/base/bufdataset.pas
View File

@ -2980,7 +2980,8 @@ var CurrLinkItem : PBufRecLinkItem;
FiltAcceptable : boolean; FiltAcceptable : boolean;
begin begin
Result := False; // Call inherited to make sure the dataset is bi-directional
Result := inherited;
CheckActive; CheckActive;
if IsEmpty then exit; if IsEmpty then exit;