diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-01-28 10:38:55 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-01-28 10:38:55 +0000 |
| commit | 45e6b43ab854aaf14bab89addf605b985e4e020e (patch) | |
| tree | 27455ce08ce8e3067029aafdf7d19df8f280be4f /packages/fcl-db/src/base/dataset.inc | |
| parent | f2c4617bbb4d7c9f6a0773a9dd9cc7b70a9eb351 (diff) | |
| download | fpc-45e6b43ab854aaf14bab89addf605b985e4e020e.tar.gz | |
* Fix bug ID 33080
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@38066 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-db/src/base/dataset.inc')
| -rw-r--r-- | packages/fcl-db/src/base/dataset.inc | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/packages/fcl-db/src/base/dataset.inc b/packages/fcl-db/src/base/dataset.inc index 86c099c4c4..e4c0daa7cd 100644 --- a/packages/fcl-db/src/base/dataset.inc +++ b/packages/fcl-db/src/base/dataset.inc @@ -1504,7 +1504,8 @@ procedure TDataSet.ClearFields; begin - if not (State in dsEditModes) then DatabaseError(SNotEditing, Self); + if not (State in dsEditModes) then + DatabaseError(SNotEditing, Self); DataEvent(deCheckBrowseMode, 0); FreeFieldBuffers; InternalInitRecord(ActiveBuffer); @@ -2134,8 +2135,6 @@ begin {$endif} // nothing found, invalidate buffer and bail out. ClearBuffers; - // Make sure that the active record is 'empty', ie: that all fields are null - InternalInitRecord(ActiveBuffer); DataEvent(deDatasetChange,0); exit; end; |