浏览代码

* Made AddToRows protected

Michaël Van Canneyt 1 年之前
父节点
当前提交
38de35d518
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      packages/fcl-db/src/json/fpjsondataset.pp

+ 1 - 0
packages/fcl-db/src/json/fpjsondataset.pp

@@ -263,6 +263,7 @@ type
     procedure SetBookmarkFlag(Buffer: TRecordBuffer; Value: TBookmarkFlag); override;
     procedure SetBookmarkData(Buffer: TRecordBuffer; Data: Pointer); override;
     function GetRecordCount: Integer; override;
+    procedure AddToRows(AValue: TJSONArray);
     procedure SetRecNo(Value: Integer); override;
     function GetRecNo: Integer; override;
   Protected