Browse Source

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

git-svn-id: trunk@28835 -
reiniero 10 years ago
parent
commit
6c7e6ad5ea
1 changed files with 4 additions and 0 deletions
  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;