paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:29:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed bugs 9143 and 11706 (duplicates)

Browse Source 
git-svn-id: trunk@11612 -
This commit is contained in:
joost 2008-08-18 21:00:24 +00:00
parent a891358859
commit 80749e3513
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1179,12 +1179,12 @@ var
Buffer : PWideChar; Buffer : PWideChar;
begin begin
if DataSize <= dsMaxStringSize then begin if DataSize <= dsMaxStringSize then begin
Result := GetData(@FixBuffer, False); Result := GetData(@FixBuffer, True);
aValue := FixBuffer; aValue := FixBuffer;
end else begin end else begin
SetLength(DynBuffer, Succ(Size)); SetLength(DynBuffer, Succ(Size));
Buffer := PWideChar(DynBuffer); Buffer := PWideChar(DynBuffer);
Result := GetData(Buffer, False); Result := GetData(Buffer, True);
if Result then if Result then
aValue := Buffer; aValue := Buffer;
end; end;