Здравствуйте, deonis_fon.
Действительно, самый простой способ - срАвнить файлы построчно. Но это
порождает двойной цикл. Есть способ избавиться от этого.
Открываете файл А.
Вписываете в начало каждой строки её порядковый номер.
Затем делаете цикл (единственный) по строкам из файла Б, в котором
проверяете. В этом цикле проверяете функцией Pos наличие строки из
файла в свойстве Text, в котором хрАнится всё содержимое файла А в
виде одной строки. Найдя позицию, Вы выбираете все предыдущие символы
из этой строки до символа перевода строки, таким образом получив номер
совпадающей строки, которую можете удалить.
Но надо ставить эксперимент, чтобы выяснить, действительно ли этот
способ лучше.
А на последок я Вам скажу: Ваш ник пишется через букву "И", а не "Е".
Удачи в изучении русского языка!
Вы писали 18 декабря 2007 г., 21:24:07:
> Оболчка Делпфи
> Всем привет, есть два списка TStringList (на пример), они не
> сортированые и их не надо сортировать .. надо их сровнить на предмет
> совпадающих строк и в том и в другом списке ... способ сравнивания
> одной строки из одного списка со всеми (по очереди) строками из другово
> списка я знаю ... есть ди другой более быстрый способ сравнения.
> Прще говоря есть два текстовых файла, файл А, и файл Б, в котором
> хронятся часть строк из файла А, которых надо убрать из файла А.
> Сортировать нельзя, ибо мне потом надо сохранить файл А в исходном
> структурном виде, но уже с удаленными строками ...
> Спасибо за ответ.
> --
> А на последок я вам скажу: В самой красивой и ангельской женщине всегда запрятана
> большая обезьяна
> С Уважением Деонис (Из города святой Екатерины с горячим приветом)
