Показать сообщение отдельно
  #3  
Старый 13.05.2013, 01:13
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Все несколько проще. Не надо ничего тут лишнего изобретать, все просто как топор.
1. Исходный файл не надо грузить в мемо - это лишнее.
2. На форму добавляете AdoQuery.
2.1. В ConnectionString пишете:
Код:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=J:\;Extended Properties="Text;HDR=No";Persist Security Info=False
Только вместо J:\ указываем путь к вашему файлу.
2.1. В SQL пишете запрос:
Код:
select  F1,F2,F3,F4,Sum(F5) as F5, Sum(F6) as F6 from Test1#txt
group by F1,F2,F3,F4
На форму добавляете DBGrid,DataSource. Связываете все это хозяйство как обычно.
3.Запускаем и хрюкаем от счастья.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием