удаление совпадающих строк

[varelik]

Здравствуйте. Подскажите, как можно удалить совпадающую (или совпадающие) с какой либо строкой строку в txt файле? Смысл в том, чтоб в этом файле все строки были различны.
Структура самого файла такая:
122
877
126
и т.д., общее к-во строк неизвестно.
Потом в проге у меня идет суммирование в переменную s: readln(f1,n); s=s+strtoint(n);
Даже пусть совпадающие строки не удаляются из файла, а просто не входят в суммирование.

[quit]

перебором, иначе никак..

[Serge_Bliznykov]

сразу скажу, писал здесь, быстро и не проверяя!
отладку/исправление ошибок доверяю Вам!

var TS1, TS2 : TStringList;
  i : integer;
begin
  TS1 := TStringList.Create;
  TS2 := TStringList.Create;
  try
    TS1.LoadFromFile('ВашФайл.txt');
    for i:=0 to  TS1.Count-1 do
       if TS2.IndexOf(TS1.Lines[i])<0 then  TS2.Add(TS1.Lines[i]);
    TS2.SaveToFile('НовыйФайл.txt);
  finally
    FreeAndNil(TS1);
    FreeAndNil(TS2);
  end;

end;

[varelik]

Serge_Bliznykov, спасибо, но не совсем то, я изначально вопрос неверно поставил, см поправку.

[Stilet]

А я бы через ODBC подключил этот фал как базу данных, и уже простым запросом обработал его. Впрочем это Лирика.

[evg_m]

   
  var
   TS1: TstringList;
    j,k: integer;
   s: string;

   TS1:=TstringList.Create;
    TS1.LoadFromFile('ВашФайл.txt'); // читаем файл  в список строк
    for i:=TS1.Count-1 downto 0 do //просматриваем список с конца
    begin
       s:=TS1.string[j];// берем по строчке с конца
       k:=TS1.IndexOf(s); //ищем такую же строчку с начала
// мы ее всегда найдем не позже чем j (т.е. всегда найдем себя)
// но можем найти и раньше 
       if k<>j // если номера строк с начала и с конца разные
         then TS1.Delete(j). // удаляем последнюю
       esle //суммируем прошедшие проверку 
         sum:=sum + strtoint(s); 
   end;
//    TS1.SaveToFile('НовыйФайл.txt);//сохраняем список в новый файл
   TS1.Free;

P.S.выделено если надо суммировать

[Serge_Bliznykov]

а какая разница?!
можно (это будет эффективно), использовать тот же подход

var TS1, TS2 : TStringList;
  i, s : integer;
begin
  TS1 := TStringList.Create;
  TS2 := TStringList.Create;
  try
    TS1.LoadFromFile('ВашФайл.txt');
    for i:=0 to  TS1.Count-1 do
       if TS2.IndexOf(TS1.Strings[i])<0 then  TS2.Add(TS1.Strings[i]);
     // теперь в TS2 только РАЗНЫЕ строчки

     //   теперь суммируем
     s:=0;
     for i:=0 to TS2.Count-1 do
         s := s + strtoint(TS2.Strings[i]);
     Application.MessageBox(PChar('сумма равна '+IntToStr(s)),'Отладка', MB_OK);
  finally
    FreeAndNil(TS1);
    FreeAndNil(TS2);
  end;
end;

[varelik]

спасибо, а как читать строки из stringlist?:
строки из txt считываю так: while not eof(f1) do readln(f1,n);
есть ли аналогичная команда для строк stringlist типа readln(ts1,n)?

дело в том, что на самом деле не строки должны суммироваться, а символы строк с 4 по 7 например. Вот так не выходит:

f,sum:string;
...
for i:=0 to ts1.Count-1 do
sum:=ts1.strings[i];
f:= sum[4]+sum[5]+sum[6]+sum[7];

[evg_m]

f:= sum[4]+sum[5]+sum[6]+sum[7];
можно, но надо быть уверенным что длина каждой строки будет>=8
иначе будет ошибка

f:=copy(sum,4,4);
а можно и так в этом случае при короткой строке ( менее 8 знаков) скопированы будут толькр имееющиеся символы т.е. длина строки f будет <4 но ошибки не будет.