浏览代码

* Fix compiler warning

Michaël Van Canneyt 2 年之前
父节点
当前提交
7894b5dd9a
共有 1 个文件被更改,包括 0 次插入2 次删除
  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