[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;

[Alegun]

Можно примерно так сократить - добавить процедуру

Код:

procedure sdf(ds: integer);
 var
  i: integer;
 begin
  for i:= 2 to ds do
   TNumericField(DataModule2.QueryK1.Fields[i]).DisplayFormat:='0.00';
 end;

ну а в коде

Код:

case ColCol of
  3: sdf(2);
  4: sdf(3);
  5: sdf(4);
  6: sdf(5);
  7: sdf(6);
  8: sdf(7);
  9: sdf(8);
end;

З.Ы.

Или сразу выполнять, без проверки кейсом: sdf(ColCol-1);

[Zhigalov]

Спасибо то, что надо.