paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2026-02-25 05:48:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Implement BookmarkValid

Browse Source
This commit is contained in:
michael 2018-03-15 14:01:36 +00:00
parent 47aa8d9351
commit 7a02179405
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/jsondataset.pas
View File

@ -145,6 +145,7 @@ type
function GetFieldClass(FieldType: TFieldType): TFieldClass; override;
function IsCursorOpen: Boolean; override;
// Bookmark operations
function BookmarkValid(ABookmark: TBookmark): Boolean; override;
procedure GetBookmarkData(Buffer: TDataRecord; var Data: TBookmark); override;
function GetBookmarkFlag(Buffer: TDataRecord): TBookmarkFlag; override;
procedure InternalGotoBookmark(ABookmark: TBookmark); override;
@ -699,6 +700,11 @@ begin
Result := Assigned(FDefaultIndex);
end;
function TBaseJSONDataSet.BookmarkValid(ABookmark: TBookmark): Boolean;
begin
Result:=isNumber(ABookmark.Data);
end;
procedure TBaseJSONDataSet.SetBookmarkData(var Buffer: TDataRecord; Data: TBookmark);
begin
Buffer.Bookmark:=Data.Data;