Browse Source

* Fixed test for field is null

git-svn-id: trunk@17704 -
michael 14 years ago
parent
commit
4a08937132
1 changed files with 5 additions and 6 deletions
  1. 5 6
      packages/fcl-db/src/base/bufdataset.pas

+ 5 - 6
packages/fcl-db/src/base/bufdataset.pas

@@ -1811,13 +1811,12 @@ begin
     currbuff := FUpdateBuffer[FCurrentUpdateBuffer].OldValuesBuffer;
     end
   else
-    begin
     CurrBuff := GetCurrentBuffer;
-    if not assigned(CurrBuff) then
-      begin
-      result := false;
-      exit;
-      end;
+
+  if not assigned(CurrBuff) then
+    begin
+    result := false;
+    exit;
     end;
 
   If Field.Fieldno > 0 then // If = 0, then calculated field or something similar