Browse Source

* Bytes start at index 0

git-svn-id: trunk@39332 -
michael 7 years ago
parent
commit
33056c1858
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-db/src/base/dsparams.inc

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

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