fix: TDBQuery.Col() crashes with "Column not available" on certain locales

ansgarbecker · ansgarbecker · commit a01acd12a779 · 2026-02-02T17:11:31.000+01:00
Refs #2338
diff --git a/source/dbconnection.pas b/source/dbconnection.pas
@@ -2065,6 +2065,7 @@ constructor TDBConnection.Create(AOwner: TComponent);
   FInfSch := 'information_schema';
   FInformationSchemaObjects := TStringList.Create;
   FInformationSchemaObjects.CaseSensitive := False;
+  FInformationSchemaObjects.UseLocale := False;
   // Characters in identifiers which don't need to be quoted
   FIdentCharsNoQuote := ['A'..'Z', 'a'..'z', '0'..'9', '_'];
   FMaxRowsPerInsert := 10000;
@@ -8064,8 +8065,10 @@ constructor TDBQuery.Create(AOwner: TComponent);
   FRecordCount := 0;
   FColumnNames := TStringList.Create;
   FColumnNames.CaseSensitive := False;
+  FColumnNames.UseLocale := False;
   FColumnOrgNames := TStringList.Create;
   FColumnOrgNames.CaseSensitive := False;
+  FColumnOrgNames.UseLocale := False;
   FStoreResult := True;
   FDBObject := nil;
   FFormatSettings := DefaultFormatSettings;
