* Fix for Mantis #20041, check assignment of buffer in TField.Getdata

    (IsNull might call it with a dummy buffer)

git-svn-id: trunk@18854 -

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

@@ -558,8 +558,8 @@ begin
     DatabaseErrorFmt(SNoDataset,[FieldName]);
   If FVAlidating then
     begin
-    result:=Not(FValueBuffer=Nil);
-    If Result then
+    result:=assigned(FValueBuffer);
+    If Result and assigned(Buffer) then
       Move (FValueBuffer^,Buffer^ ,DataSize);
     end
   else