| Можно воспользоваться свойством field TTable или настроить запрос в Tquery. Предлагаю использовать следующую процедуру, которую можно расширить и настраивать другие свойства - шрифт, цвет, ширина и т.д.
procedure ColumnShow(CName,Title:string); begin with DBGrid1 do begin Columns.Add; Columns[Columns.Count-1].FieldName:=CName; Columns[Columns.Count-1].Title.Caption:=Title; end; end;
Используем следующим образом:
DBGrid1.Columns.Clear; ColumnShow('Date_','Дата'); ColumnShow('Time_','Время'); ColumnShow('Masse','Масса, т'); ColumnShow('krec','Рекуп.');
| 