| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Пропустить повторения. [D7, Access]
Kott © (2003-12-06 03:59:00)
Есть большой текстовый файл, содерхание файла такое:
Заголовок : //
Автор : Alex
Кому : All
Дата : 30.10.03 19:13:31
---------------------
//текст сообщения
и т.д. весь файл забит этими данными...
я открываю файл, а программа считывает информацию и добавляет в таблицу. Бывает что сообщения повторяются и вот их надо пропустить и считывать следующее сообщение.
Вот мой код считывания и добавления, посмотрите где, че не хватает и куда что вставить.
AssignFile(f, extractfilepath(paramstr(0))+"Mess.txt");
reset(f);
while not Eof(f) do
begin
Readln(f, s, e);
if s = "Заголовок : " then
begin
ADOTable1.Insert;
ADOTable1.FieldByName("title").AsString := e;
end;
if s = "Автор : " then
ADOTable1.FieldByName("autor").AsString := e;
...
if s = "-------------" then
...
ADOTable1.FieldByName("message").AsString := Mess.Text;
...
tchn (2003-12-06 04:50:00) [1]
я бы так сделал:
сначала считал все данные во временную таблицу с такой же структурой, как у ADOTable1. потом из временной залил в ADOTable1 запросом с DISTINCT
insert into adotable1 select distinct * from #tmp
| |
