paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 20:50:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #33080

Browse Source 
git-svn-id: trunk@38066 -
This commit is contained in:
michael 2018-01-28 10:38:55 +00:00
parent 5a9488b1fc
commit afa2b90a5d
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/src/base/dataset.inc
View File

@ -1504,7 +1504,8 @@ procedure TDataSet.ClearFields;
begin begin
if not (State in dsEditModes) then DatabaseError(SNotEditing, Self); if not (State in dsEditModes) then
DatabaseError(SNotEditing, Self);
DataEvent(deCheckBrowseMode, 0); DataEvent(deCheckBrowseMode, 0);
FreeFieldBuffers; FreeFieldBuffers;
InternalInitRecord(ActiveBuffer); InternalInitRecord(ActiveBuffer);
@ -2134,8 +2135,6 @@ begin
{$endif} {$endif}
// nothing found, invalidate buffer and bail out. // nothing found, invalidate buffer and bail out.
ClearBuffers; ClearBuffers;
// Make sure that the active record is 'empty', ie: that all fields are null
InternalInitRecord(ActiveBuffer);
DataEvent(deDatasetChange,0); DataEvent(deDatasetChange,0);
exit; exit;
end; end;