[bloodmaster89]

Здравствуйте уважаемые форумчане!
У меня возник такой вопрос, каким образом можно организовать удаление повторяющихся строк в текстовом файле txt.
Имеется файл output_add.txt в котором есть строки
6 2
5 3
7 2
6 2
5 3
6 5
Как сделать так чтобы на выходе было
6 2
5 3
7 2
6 5

[Alegun]

Такое не есть хорошо, lmikle ещё в прошлой теме выложил правильное решение, здесь тоже самое

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 sl1, sl2: TStrings;
begin
 sl1:= TStringList.Create;
 sl2:= TStringList.Create;
 sl1.LoadFromFile('output_add.txt');
 for i := 0 to sl1.Count-1 do
  if sl2.IndexOf(sl1[i]) < 0 then sl2.Add(sl1[i]);
 sl1.Free;
 sl2.SaveToFile('output_add.txt');
 sl2.Free;
end;

[angvelem]

Ну и зачем это? Свойство Sorted и Duplicated отменили?

[Alegun]

Сообщение от angvelem

Ну и зачем это?..

К сожалению, если задействовать Sorted и Duplicates, точного соблюдения приведенного ТС описания не выйдет, хотя действительно, очень этого жаль.