diff options
| author | joost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-03-24 18:58:33 +0000 |
|---|---|---|
| committer | joost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-03-24 18:58:33 +0000 |
| commit | 9d5145b255e0f27d2ad60cf09ce69fb86a852bc4 (patch) | |
| tree | 03af77c405e57a69941b465df1408c414bc8654e | |
| parent | 2d296396ab33e20cb8ac18ba8538ca1d4e701443 (diff) | |
| download | fpc-9d5145b255e0f27d2ad60cf09ce69fb86a852bc4.tar.gz | |
Merged revisions 10470 via svnmerge from
svn+ssh://joost@svn.freepascal.org/FPC/svn/fpc/trunk
........
r10470 | joost | 2008-03-09 21:11:17 +0100 (Sun, 09 Mar 2008) | 1 line
* Set TDataSet.InternalCalcFields if there are InternalCalcFields
........
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/cleanroom@10553 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | packages/fcl-db/src/base/dataset.inc | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/packages/fcl-db/src/base/dataset.inc b/packages/fcl-db/src/base/dataset.inc index 5f8831ab38..522619acf0 100644 --- a/packages/fcl-db/src/base/dataset.inc +++ b/packages/fcl-db/src/base/dataset.inc @@ -114,6 +114,7 @@ begin if FieldIndex <> -1 then begin FieldDef := FieldDefs[FieldIndex]; FFieldNo := FieldDef.FieldNo; + if FieldDef.InternalCalcField then FInternalCalcFields := True; if IsBlob then begin FSize := FieldDef.Size; FOffset := FBlobFieldCount; @@ -972,6 +973,7 @@ begin else begin DoBeforeOpen; + FInternalCalcFields:=False; try OpenCursor(False); finally |