Browse Source

* Fix compiler warning

Michaël Van Canneyt 2 years ago
parent
commit
1d9a17377d
1 changed files with 0 additions and 2 deletions
  1. 0 2
      packages/fcl-db/src/sqldb/sqldbpool.pp

+ 0 - 2
packages/fcl-db/src/sqldb/sqldbpool.pp

@@ -660,7 +660,6 @@ function TSQLDBConnectionmanager.CreateConnection(const aDef: TSQLDBConnectionDe
 
 
 var
 var
   C : TSQLConnectionClass;
   C : TSQLConnectionClass;
-  S : String;
 
 
 begin
 begin
   C:=aDef.ConnectionClass;
   C:=aDef.ConnectionClass;
@@ -671,7 +670,6 @@ begin
   Result:=C.Create(Self.ConnectionOwner);
   Result:=C.Create(Self.ConnectionOwner);
   try
   try
     aDef.AssignTo(Result);
     aDef.AssignTo(Result);
-    S:=SetToString(PTypeInfo(TypeInfo(TDBEventTypes)),Integer(Self.LogEvents),True);
     Result.LogEvents:=Self.LogEvents;
     Result.LogEvents:=Self.LogEvents;
     Result.Transaction:=TSQLTransaction.Create(Result);
     Result.Transaction:=TSQLTransaction.Create(Result);
   except
   except