Missing change for r3124 - wrong column type detection

This commit is contained in:
Ansgar Becker
2010-03-12 21:29:42 +00:00
parent e417eef591
commit 1540c74d31

View File

@ -3661,7 +3661,7 @@ begin
for j:=0 to Length(DataGridResult.Columns)-1 do begin for j:=0 to Length(DataGridResult.Columns)-1 do begin
SetLength(DataGridResult.Rows[i].Cells, Data.ColumnCount); SetLength(DataGridResult.Rows[i].Cells, Data.ColumnCount);
Cell := @DataGridResult.Rows[i].Cells[j]; Cell := @DataGridResult.Rows[i].Cells[j];
case Data.DataType(j).Category of case DataGridResult.Columns[j].DatatypeCat of
dtcInteger, dtcReal: Cell.Text := FormatNumber(Data.Col(j), False); dtcInteger, dtcReal: Cell.Text := FormatNumber(Data.Col(j), False);
dtcBinary: Cell.Text := GetBlobContent(Data, j); dtcBinary: Cell.Text := GetBlobContent(Data, j);
else Cell.Text := Data.Col(j); else Cell.Text := Data.Col(j);