diff options
| author | Almindor <Almindor@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-03-20 18:37:19 +0000 |
|---|---|---|
| committer | Almindor <Almindor@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-03-20 18:37:19 +0000 |
| commit | 1e434030cf9439a31759dd7993b19db00ab87ec4 (patch) | |
| tree | fd1be59fd69c280efa06b7baefd478d8a4e04ff7 | |
| parent | aa3a602dea0fb37d04ac247f4252a97a249ee70a (diff) | |
| download | fpc-1e434030cf9439a31759dd7993b19db00ab87ec4.tar.gz | |
* fix potential bug in cleanroom TDataLink.CalcFirstRecord
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/cleanroom@10515 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | packages/fcl-db/src/base/datasource.inc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-db/src/base/datasource.inc b/packages/fcl-db/src/base/datasource.inc index e99e07c98d..ce3af0baf6 100644 --- a/packages/fcl-db/src/base/datasource.inc +++ b/packages/fcl-db/src/base/datasource.inc @@ -61,7 +61,7 @@ Function TDataLink.CalcFirstRecord(Index : Integer) : Integer; var n: Integer; begin - Result := FDataSource.FDataSet.FActiveRecord - (FFirstRecord + Index + FBufferCount - 1); + Result := DataSource.DataSet.FActiveRecord - (FFirstRecord + Index + FBufferCount - 1); Inc(FFirstRecord, Index + Result); end; |