[Zhigalov]

Может у кого есть идея. Как можно это сделать меньшим кодом.
А то если будет много колонок, то станет совсем куча однотипного кода.

Код:

ColCol:=DBGrid1.Columns.Count;
case ColCol of
  3:    TNumericField(DataModule2.QueryK1.Fields[2]).DisplayFormat:='0.00';
  4:    begin TNumericField(DataModule2.QueryK1.Fields[2]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[3]).DisplayFormat:='0.00'; end;
  5:    begin TNumericField(DataModule2.QueryK1.Fields[2]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[3]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[4]).DisplayFormat:='0.00';end;
  6:    begin TNumericField(DataModule2.QueryK1.Fields[2]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[2]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[3]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[4]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[5]).DisplayFormat:='0.00';end;
  7:    begin TNumericField(DataModule2.QueryK1.Fields[2]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[2]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[3]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[4]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[5]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[6]).DisplayFormat:='0.00';end;
  8:    begin TNumericField(DataModule2.QueryK1.Fields[2]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[2]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[3]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[4]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[5]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[6]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[7]).DisplayFormat:='0.00';end;
  9:    begin TNumericField(DataModule2.QueryK1.Fields[2]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[2]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[3]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[4]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[5]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[6]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[7]).DisplayFormat:='0.00';
        TNumericField(DataModule2.QueryK1.Fields[8]).DisplayFormat:='0.00';end;
end;