Issue #1169: give items in TDBDatatypeIndex a different prefix (dt => dbdt), to fix a conflict with those from Delphi's database components

This commit is contained in:
Ansgar Becker
2021-06-26 17:44:50 +02:00
parent b86efe871d
commit a469d89227
8 changed files with 290 additions and 292 deletions

View File

@ -1843,7 +1843,7 @@ begin
Row := Row + 'NULL'
else case Data.DataType(i).Category of
dtcInteger, dtcReal: begin
if Data.DataType(i).Index = dtBit then
if Data.DataType(i).Index = dbdtBit then
Row := Row + 'b' + Quoter.EscapeString(Data.Col(i))
else
Row := Row + Data.Col(i);