From 8ed344400d2e08f44fecd5bd5ab34557a9aba6e3 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Wed, 1 May 2024 16:48:30 +0200
Subject: [PATCH] Issue #1947: don't change case of detected column names, in
 CSV parser

---
 source/dbconnection.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/source/dbconnection.pas b/source/dbconnection.pas
index 5bf9b3e1..b2bed690 100644
--- a/source/dbconnection.pas
+++ b/source/dbconnection.pas
@@ -5211,8 +5211,9 @@ function TDBConnection.DeQuoteIdent(Identifier: String; Glue: Char=#0): String;
 function TDBConnection.CleanIdent(Identifier: string): string;
 begin
   Result := Trim(Identifier);
-  Result := LowerCase(Result);
-  Result := ReplaceRegExpr('[^a-z0-9]', Result, '_');
+  // See issue #1947:
+  //Result := LowerCase(Result);
+  Result := ReplaceRegExpr('[^A-Za-z0-9]', Result, '_');
   Result := ReplaceRegExpr('_+', Result, '_');
 end;