Преглед изворни кода

* mantis #29588 setblobdata moved over pointer ref type.

git-svn-id: trunk@33049 -
marco пре 9 година
родитељ
комит
79305ce4da
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      packages/fcl-db/src/base/dsparams.inc

+ 1 - 1
packages/fcl-db/src/base/dsparams.inc

@@ -1104,7 +1104,7 @@ Var
 
 begin
   SetLength(Temp,ASize);
-  Move(Buffer^,Temp,ASize);
+  Move(Buffer^,Temp[1],ASize);
   AsBlob:=Temp;
 end;