Forráskód Böngészése

fcl-db: base: Set Bound when loading param from stream. Bug #30651
(Delphi uses for TBlobData=TBytes , we use AnsiString)

git-svn-id: trunk@34564 -

lacak 9 éve
szülő
commit
482290e4bc
1 módosított fájl, 1 hozzáadás és 1 törlés
  1. 1 1
      packages/fcl-db/src/base/dsparams.inc

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

@@ -1142,8 +1142,8 @@ begin
     Position:=0;
     SetLength(Temp,Size);
     ReadBuffer(Pointer(Temp)^,Size);
-    FValue:=Temp;
     end;
+  Value:=Temp;
 end;
 
 Procedure TParam.SetBlobData(Buffer: Pointer; ASize: Integer);