paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 17:59:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@8726 -
This commit is contained in:
joost 2007-10-02 21:01:13 +00:00
parent c767df348f
commit 7d6a23090c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/fields.inc
View File

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