فهرست منبع

* 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;