* dataset.Bookmark changed to TBookMark.

git-svn-id: trunk@20424 -

packages/fcl-db/src/base/dataset.inc

@@ -1593,7 +1593,7 @@ Procedure TDataset.DoInsertAppend(DoAppend : Boolean);
 
   procedure DoInsert(DoAppend : Boolean);
 
-  Var BookBeforeInsert : TBookmarkStr;
+  Var BookBeforeInsert : TBookmark;
       TempBuf : pointer;
 
   begin

packages/fcl-db/src/base/db.pas

@@ -1613,7 +1613,7 @@ type
     function UpdateStatus: TUpdateStatus; virtual;
     property BlockReadSize: Integer read FBlockReadSize write SetBlockReadSize;
     property BOF: Boolean read FBOF;
-    property Bookmark: TBookmarkStr read GetBookmarkStr write SetBookmarkStr;
+    property Bookmark: TBookmark read GetBookmark write GotoBookmark;
     property CanModify: Boolean read GetCanModify;
     property DataSource: TDataSource read GetDataSource;
     property DefaultFields: Boolean read FDefaultFields;

packages/fcl-db/src/export/fpdbexport.pp

@@ -702,7 +702,7 @@ Function TCustomDatasetExporter.Execute : Integer;
 
 Var
   B : Boolean;
-  BM : TBookMarkStr;
+  BM : TBookMark;
 
 begin
   Result:=0;