Показать сообщение отдельно
  #2  
Старый 08.02.2017, 20:05
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Лень код писать.
Собственно, тебе нужы переменные, в которых у тебя будут расположены:
1. Счетчик записей
2. Значения ключевых полей (по которым определяется "повторение" записей).
3. Переменную для суммирования ИТОГО
Перед циклом счетчик = 0, все переменных ключ. значений - пустая строка.
Перед вставкой очередной записи:
1. Проверяем по ключевым полям. Если повторяется - увеличиваем счетчик и итог и НЕ вставляем
2. Если не совпадает, то:
2.1. Проверяем счетчик. Если > 1, то вставляем итоговую запись
2.2. Вставляем новую запись
2.3. Сбрасываем счетчик и итог и обновляем переменные ключевых полей
Ответить с цитированием