From 45d74f2a0eefb784ab9fb7be7df62bf190e5fe04 Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Tue, 7 Jun 2016 18:10:38 +0000 Subject: [PATCH] Trim database names when passed as semicolon separated list. See http://www.heidisql.com/forum.php?t=21505 --- source/dbconnection.pas | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/source/dbconnection.pas b/source/dbconnection.pas index b315a817..2d48c2f0 100644 --- a/source/dbconnection.pas +++ b/source/dbconnection.pas @@ -3293,6 +3293,7 @@ end; function TDBConnection.GetAllDatabases: TStringList; var rx: TRegExpr; + dbname: String; begin // Get user passed delimited list if not Assigned(FAllDatabases) then begin @@ -3303,8 +3304,9 @@ begin rx.ModifierG := True; if rx.Exec(FParameters.AllDatabasesStr) then while true do begin // Add if not a duplicate - if FAllDatabases.IndexOf(rx.Match[0]) = -1 then - FAllDatabases.Add(rx.Match[0]); + dbname := Trim(rx.Match[0]); + if FAllDatabases.IndexOf(dbname) = -1 then + FAllDatabases.Add(dbname); if not rx.ExecNext then break; end;