Issue #1947: don't change case of detected column names, in CSV parser

This commit is contained in:
Ansgar Becker
2024-05-01 16:48:30 +02:00
parent 59669869ea
commit 8ed344400d

View File

@ -5211,8 +5211,9 @@ end;
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;