From 2a3466598b87c055ee68e0cfd4a7bf471c45b94c Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 13 Mar 2011 22:35:18 +0000
Subject: [PATCH] Remove duplicated database names from user passed list. Fixes
 issue #2322.

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

diff --git a/source/mysql_connection.pas b/source/mysql_connection.pas
index 1fdf4d03..a49606ff 100644
--- a/source/mysql_connection.pas
+++ b/source/mysql_connection.pas
@@ -1180,6 +1180,8 @@ begin
         FAllDatabases[i] := Trim(FAllDatabases[i]);
         if FAllDatabases[i] = '' then
           FAllDatabases.Delete(i);
+        if FAllDatabases.IndexOf(FAllDatabases[i]) <> i then
+          FAllDatabases.Delete(i);
       end;
     end else try
       FAllDatabases := GetCol('SHOW DATABASES');