Пропустить повторения.

← →
Kott © (2003-12-06 03:59) [0]

Есть большой текстовый файл, содерхание файла такое:
Заголовок : //
Автор : 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) [1]

я бы так сделал:
сначала считал все данные во временную таблицу с такой же структурой, как у ADOTable1. потом из временной залил в ADOTable1 запросом с DISTINCT
insert into adotable1 select distinct * from #tmp

Пропустить повторения. Найти похожие ветки