|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
DisplayFormat в DBGrid
Может у кого есть идея. Как можно это сделать меньшим кодом.
А то если будет много колонок, то станет совсем куча однотипного кода. Код:
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; |
#2
|
||||
|
||||
Можно примерно так сократить - добавить процедуру
Код:
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); Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 31.10.2013 в 08:20. Причина: дополнение |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
Zhigalov (31.10.2013)
|
#3
|
|||
|
|||
Спасибо то, что надо.
|