paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 23:51:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: when moving odd number bytes from blob stream into widestring allocate sufficient space. (f.e. if Len=1 then Len div 2 = 0)

Browse Source 
git-svn-id: trunk@22995 -
This commit is contained in:
lacak 2012-11-16 12:37:53 +00:00
parent e370303fda
commit ffefefc1dc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2729,7 +2729,7 @@ begin
With Stream do With Stream do
try try
Len := Size; Len := Size;
SetLength(Result,Len div 2); SetLength(Result, (Len+1) div 2);
if Len > 0 then if Len > 0 then
ReadBuffer(Result[1] ,Len); ReadBuffer(Result[1] ,Len);
finally finally