浏览代码

* Fix recno calculation

michael 7 年之前
父节点
当前提交
5dc2adc79f
共有 1 个文件被更改,包括 7 次插入3 次删除
  1. 7 3
      packages/fcl-db/jsondataset.pas

+ 7 - 3
packages/fcl-db/jsondataset.pas

@@ -441,8 +441,7 @@ end;
 
 procedure TBaseJSONDataSet.GetBookmarkData(Buffer: TDataRecord; var Data: TBookmark);
 begin
-//  writeln('Bookmark :',Buffer.bookmark);
-  Data.Data:=Buffer.bookmark;
+   Data.Data:=Buffer.bookmark;
 end;
 
 function TBaseJSONDataSet.GetBookmarkFlag(Buffer: TDataRecord): TBookmarkFlag;
@@ -451,8 +450,13 @@ begin
 end;
 
 function TBaseJSONDataSet.GetRecNo: Integer;
+
+Var
+  bkmIdx : Integer;
+
 begin
-  Result := FCurrent + 1;
+  bkmIdx:=Integer(ActiveBuffer.bookmark);
+  Result:=FCurrentIndex.FindRecord(bkmIdx);
 end;
 
 procedure TBaseJSONDataSet.InternalInitFieldDefs;