Browse Source

+ avoided mem-leak

git-svn-id: trunk@1777 -
joost 20 years ago
parent
commit
dcbf526530
1 changed files with 2 additions and 1 deletions
  1. 2 1
      fcl/db/sqldb/mysql/mysql4conn.pas

+ 2 - 1
fcl/db/sqldb/mysql/mysql4conn.pas

@@ -215,7 +215,8 @@ end;
 
 
 function TMySQLConnection.AllocateTransactionHandle: TSQLHandle;
 function TMySQLConnection.AllocateTransactionHandle: TSQLHandle;
 begin
 begin
-  Result:=TMySQLTransaction.Create;
+//  Result:=TMySQLTransaction.Create;
+  Result := nil;
 end;
 end;
 
 
 procedure TMySQLConnection.PrepareStatement(cursor: TSQLCursor;
 procedure TMySQLConnection.PrepareStatement(cursor: TSQLCursor;