Topic: Сумма столбца (тип поля Деньги) Gride в Foter
Здравствуйте Дмитрий и форумчане!
Столкнулся с такой проблемкой:
Подсчет столбца в футере игнорирует не целые числа (с запятыми). Запрос написан через скрипт, конечно есть вариант решения используя встроенные механизмы подсчета программы через интерфейс, но все же хотелось бы узнать как можно выполнить правильный подсчет используя скрипт.
procedure Form1_GridEmployees_OnChange (Sender: string);
var
i,c, q: integer;
begin
q := 0;
c := Form1.GridEmployees.RowCount - 1;
for i := 0 to c do
if ValidInt(Form1.GridEmployees.Cells[3, i]) then q := q + StrToInt(Form1.GridEmployees.Cells[3, i]);
Form1.GridEmployees.Columns[3].Footer.Caption := IntToStr(q);// result
end;
begin
end.Post's attachments
Итог.jpg 146.2 kb, 263 downloads since 2016-07-30
Footer.7z
