paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 08:14:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Avoid range-check error

Browse Source 
git-svn-id: trunk@10236 -
This commit is contained in:
joost 2008-02-07 20:08:05 +00:00
parent fe7b1a7f2e
commit 16ff4076ee
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-db/src/base/dsparams.inc
View File

@ -402,7 +402,8 @@ begin
BufIndex:=ParamPart[i].Stop;
end;
CopyLen:=Length(SQL)+1-BufIndex;
Move(SQL[BufIndex],NewQuery[NewQueryIndex],CopyLen);
if CopyLen > 0 then
Move(SQL[BufIndex],NewQuery[NewQueryIndex],CopyLen);
end
else
NewQuery:=SQL;