Fix unquoted enum and set values in SQL export.

This commit is contained in:
Ansgar Becker
2009-11-22 23:48:28 +00:00
parent 92bd620309
commit e5113a4260

View File

@ -985,9 +985,9 @@ begin
if Data.IsNull(i) then if Data.IsNull(i) then
Row := Row + 'NULL' Row := Row + 'NULL'
else case Data.DataType(i).Category of else case Data.DataType(i).Category of
dtcText, dtcTemporal: Row := Row + esc(Data.Col(i)); dtcInteger, dtcReal: Row := Row + Data.Col(i);
dtcBinary: Row := Row + '_binary 0x' + BinToWideHex(Data.Col(i)); dtcBinary: Row := Row + '_binary 0x' + BinToWideHex(Data.Col(i));
else Row := Row + Data.Col(i); else Row := Row + esc(Data.Col(i));
end; end;
if i<Data.ColumnCount-1 then if i<Data.ColumnCount-1 then
Row := Row + ', '; Row := Row + ', ';