Модератор: Модераторы
alien308 писал(а):Так N квадрат времени надо, лучше отсортировать и на соответсвующих позициях сравнивать. Есть ли способ турусы не разводить?
alien308 писал(а):Так N квадрат времени надо
tema писал(а):А почему не сравнить TStringList.Text? Это как одна строка и сравнить можно без всякого цикла
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;
не сильно ясно и возможны варианты.совпадение строк.... Повторяющихся строк нет
if StringList1.Text=StringList2.Text then РАВНЫ
tema писал(а):Выставить у обоих списков изначально Sorted:=True; Если это свойство выставить при создании списков, то они заполняться будут уже сортированными
И дальше
- Код: Выделить всё
if StringList1.Text=StringList2.Text then РАВНЫ
Вернуться в Free Pascal Compiler
Сейчас этот форум просматривают: Google [Bot] и гости: 9