From 2522b5503e1242ee945ab52a8e81e92a9a5ebd90 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 14 Sep 2015 10:11:48 +0000
Subject: [PATCH] RxFPC: fix compile with FPC 2.6.4

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4330 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/dbutils.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/components/rx/trunk/dbutils.pas b/components/rx/trunk/dbutils.pas
index 390e1a89c..a31dbb953 100644
--- a/components/rx/trunk/dbutils.pas
+++ b/components/rx/trunk/dbutils.pas
@@ -1056,7 +1056,7 @@ begin
 
   DataSet.DisableControls;
   Result.BeginUpdate;
-  P:=DataSet.Bookmark;
+  P:=DataSet.GetBookmark;
   try
     DataSet.First;
     while not DataSet.EOF do
@@ -1066,7 +1066,8 @@ begin
       DataSet.Next;
     end;
   finally
-    DataSet.Bookmark:=P;
+    DataSet.GotoBookmark(P);
+    DataSet.FreeBookmark(P);
     Result.EndUpdate;
     DataSet.EnableControls;
   end;