diff --git a/source/mysql_connection.pas b/source/mysql_connection.pas index 118c56e5..0b65fbc0 100644 --- a/source/mysql_connection.pas +++ b/source/mysql_connection.pas @@ -47,12 +47,8 @@ type ); TMySQLClientOptions = set of TMySQLClientOption; -const - DEFAULT_MYSQLOPTIONS = [opCompress, opLocalFiles, opInteractive, opProtocol41, opMultiStatements]; + {$M+} // Needed to add published properties -{$M+} // Needed to add published properties - -type TMySQLQuery = class; TMySQLConnection = class(TComponent) private @@ -202,7 +198,7 @@ implementation constructor TMySQLConnection.Create(AOwner: TComponent); begin inherited Create(AOwner); - FOptions := DEFAULT_MYSQLOPTIONS; + FOptions := [opCompress, opLocalFiles, opInteractive, opProtocol41, opMultiStatements]; FPort := MYSQL_PORT; FRowsFound := 0; FRowsAffected := 0;