paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 03:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* dataset.Bookmark changed to TBookMark.

Browse Source 
git-svn-id: trunk@20424 -
This commit is contained in:
marco 2012-02-25 10:08:01 +00:00
parent 2e0a5facd2
commit c60282cd2c
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/base/dataset.inc
View File

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

2
packages/fcl-db/src/base/db.pas
View File

@ -1613,7 +1613,7 @@ type
function UpdateStatus: TUpdateStatus; virtual; function UpdateStatus: TUpdateStatus; virtual;
property BlockReadSize: Integer read FBlockReadSize write SetBlockReadSize; property BlockReadSize: Integer read FBlockReadSize write SetBlockReadSize;
property BOF: Boolean read FBOF; 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 CanModify: Boolean read GetCanModify;
property DataSource: TDataSource read GetDataSource; property DataSource: TDataSource read GetDataSource;
property DefaultFields: Boolean read FDefaultFields; property DefaultFields: Boolean read FDefaultFields;

2
packages/fcl-db/src/export/fpdbexport.pp
View File

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