* Terminate strings in recordbuffer if size of supplied string is larger then the field-size

git-svn-id: trunk@8726 -

packages/fcl-db/src/fields.inc

@@ -1089,6 +1089,8 @@ begin
     // The data is copied into the buffer, since some TDataset descendents copy
     // the whole buffer-length in SetData. (See bug 8477)
     Buf := AValue;
+    // If length(AValue) > Datasize the buffer isn't terminated properly
+    Buf[DataSize] := #0;
     SetData(@Buf);
     end;
 end;