|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Удаление повторяющихся строк в файле txt
Здравствуйте уважаемые форумчане!
У меня возник такой вопрос, каким образом можно организовать удаление повторяющихся строк в текстовом файле txt. Имеется файл output_add.txt в котором есть строки 6 2 5 3 7 2 6 2 5 3 6 5 Как сделать так чтобы на выходе было 6 2 5 3 7 2 6 5 |
#2
|
||||
|
||||
Такое не есть хорошо, 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; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
||||
|
||||
Ну и зачем это? Свойство Sorted и Duplicated отменили?
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#4
|
||||
|
||||
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |