Also don't quote default values of a float type column, same as for integers.

This commit is contained in:
Ansgar Becker
2010-02-17 00:23:38 +00:00
parent a43edc883f
commit 14e03d9647

View File

@@ -993,7 +993,7 @@ begin
case Col.DefaultType of
cdtNothing: CellText := 'No default';
cdtText, cdtTextUpdateTS: begin
if Col.DataType.Category = dtcInteger then
if Col.DataType.Category in [dtcInteger, dtcReal] then
CellText := Col.DefaultText
else
CellText := esc(Col.DefaultText);