Сравнение двух TStringList на совпадение строк

[alien308]

Как правильно сравнить два объекта TStringList на совпадение строк? Количество строк одинаковое, порядок может отличатся. Повторяющихся строк нет.

[WAYFARER]

alien308, в цикле, построчно.
Каждую строку первого TStringList сравниваем с каждой строкой второго TStringList.

[alien308]

Так N квадрат времени надо, лучше отсортировать и на соответсвующих позициях сравнивать. Есть ли способ турусы не разводить?

[wadman]

По хорошему перед сравнением списки стоит отсортировать.

[WAYFARER]

Так N квадрат времени надо, лучше отсортировать и на соответсвующих позициях сравнивать. Есть ли способ турусы не разводить?

Готового способа вроде бы нет.
Я в подобных задачах, когда объем данных достаточно большой, вешаю эти вещи на СУБД, так быстрее и проще выходит.

[olegy123]

Так N квадрат времени надо

Ну тогда если очень часто приходится сравнивать большие данные - проще сделать хеширование с индексированием при размещении..
Оптимизировать до поиска.

[tema]

А почему не сравнить TStringList.Text? Это как одна строка и сравнить можно без всякого цикла

[mig-31]

А почему не сравнить TStringList.Text? Это как одна строка и сравнить можно без всякого цикла

Это прокатит, если все Items в обоих TStringList были записаны однаково по порядку.

Можно после сортировки обоих TStringList например в первом запретить дупликаты и добавить второй в первый TStringList и проверить, если увеличилось TStringList.Count

[alien308]

Добавить списки к списку можно одной операцией или цикл нужен?

[Ichthyander]

Код: Выделить всё

  with TStringList.Create do
begin
  Sorted:=True;
  Duplicates:=dupIgnore; 
  AddStrings(Strings1);
  if Count<>Strings1.Count then
    Result:='Все-таки были дубликаты';
  AddStrings(Strings2);
  if Count=Strings2.Count then
   Result:='Строки равны';
end;

[pupsik]

в простом варианте - третий список и проверка дублей. Тормознуто через лист но можно через деревья. Рассчитано на малые объёмы.
При больших объёмах - сродни шаманству

Вызывают вопросы:

совпадение строк.... Повторяющихся строк нет

не сильно ясно и возможны варианты.

[Дож]

Помимо сортировки (N*logN), можно посчитать от списков хеш, не зависящий от порядка (например, поXORив md5 элементов), и сравнить полученные хеши (за линию).

[tema]

Выставить у обоих списков изначально Sorted:=True; Если это свойство выставить при создании списков, то они заполняться будут уже сортированными
И дальше

Код: Выделить всё

if StringList1.Text=StringList2.Text then РАВНЫ

[Ichthyander]

Выставить у обоих списков изначально Sorted:=True; Если это свойство выставить при создании списков, то они заполняться будут уже сортированными
И дальше

Код: Выделить всё

if StringList1.Text=StringList2.Text then РАВНЫ

Мы не знаем условия задачи. Возможно порядок их нужно сохранять. Поэтому все-таки я бы порекомендовал проверить все третьим созданным отсортированным изначально списком примерно как в коде, приведенном мною выше

Добавлено спустя 1 минуту 52 секунды:
И, кстати, хороший вариант предложил Дож... Но не думаю, что топикстартер будет этим заморачиваться