* Fix bug ID #33081, dataset should be in edit mode for calling clearfields

git-svn-id: trunk@38064 -

packages/fcl-db/src/base/dataset.inc

@@ -1504,6 +1504,7 @@ procedure TDataSet.ClearFields;
 
 
 begin
+  if not (State in dsEditModes) then DatabaseError(SNotEditing, Self);
   DataEvent(deCheckBrowseMode, 0);
   FreeFieldBuffers;
   InternalInitRecord(ActiveBuffer);