Browse Source

* fcl-db: oracleconnection: addendum to commit 28833; issue #26868

git-svn-id: trunk@28835 -
reiniero 11 năm trước cách đây
mục cha
commit
6c7e6ad5ea
1 tập tin đã thay đổi với 4 bổ sung0 xóa
  1. 4 0
      packages/fcl-db/src/sqldb/oracle/oracleconnection.pp

+ 4 - 0
packages/fcl-db/src/sqldb/oracle/oracleconnection.pp

@@ -1248,6 +1248,10 @@ constructor TOracleConnection.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
   FConnOptions := FConnOptions + [sqEscapeRepeat];
+  FOciEnvironment := nil;
+  FOciError := nil;
+  FOciServer := nil;
+  FOciUserSession := nil;
   FUserMem := nil;
 end;