From b0ccbaadbd155ab296fc8cac219f1346c5d6d7d5 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 24 Jan 2010 15:15:46 +0000
Subject: [PATCH] Minor code simplification

---
 source/mysql_connection.pas | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

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;