From e06d3a6e04ff79449a7cb084fa4e4faaa4c8a048 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Thu, 16 Aug 2012 17:53:09 +0000
Subject: [PATCH]   * raise an error when locate is used on a closed dataset
 (patch by     Claudio Romero, mantis #13938)

git-svn-id: trunk@22098 -
---
 packages/fcl-db/src/dbase/dbf.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/packages/fcl-db/src/dbase/dbf.pas b/packages/fcl-db/src/dbase/dbf.pas
index a01833f722..e2e45013bd 100644
--- a/packages/fcl-db/src/dbase/dbf.pas
+++ b/packages/fcl-db/src/dbase/dbf.pas
@@ -1724,6 +1724,7 @@ var
 begin
   if FCursor = nil then
   begin
+    CheckActive;
     Result := false;
     exit;
   end;