Сравнить два TStringList

[northener]

Сообщение от min@y™

нет

я имел в виду удаление из копии данных (скопировать список и удалять строки из копии уже).
Посмотрим, что автор скажет по поводу модификации входных данных.

А вообще, мне всё равно. Я всего лишь предложил альтернативный вариант.

В списках работают со ссылками/указателями. Выбирай родной тебе термин. Добавление в список TStringList - есть добавление в список указателя на строку. Плюс увеличение счётчика ссылок, который принадлежит самой строке - string). Удаление строки - есть удаление ссылки из списка плюс проверка счётчика ссылок.

[min@y™]

Работа с указателями происходит только внутри списка.
При копировании данных наружу копируются именно данные, а не указатели.

List1.Text:= List2.Text;

[Аватар]

Имел ввиду такое

  for idx2:=0 to SL2.Count-1 do
    if SL1.IndexOf(SL2[idx2])=-1 then SL3.Add(SL2[idx2]);

И на 4000 строк в SL2, 2000 в SL1 и примерно половина не совпадает этот код быстрей чем удаление

[min@y™]

быстрей чем удаление

а код где?
Хотя, хренсним, пусть так и будет.

[Аватар]

Код c удалением в #5. Код с добавлением в 3-ий стринглист в #13. Скорее всего из-за вложенного цикла. И сильно будет зависеть от конкретного состава строк

[min@y™]

Код c удалением в #5. Код с добавлением в 3-ий стринглист в #13.

Да не.
Код программы с измерением времени обоих алгоритмов где?

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
const cSimbols = 'abcdefghijklmnopqrstu1234567890';
var SL1,SL2,SL3: TStringList;
    idx1,idx2: Integer;
    s: String;
    Start: Cardinal;
function RandomStr: String;
var j,k: Integer;
begin
  k:=5+Random(30);
  Result:='';
  for j:=1 to k do Result:=Result+cSimbols[Random(Length(cSimbols))+1];
end;
begin
  Randomize;
  SL1:=TStringList.Create;
  SL2:=TStringList.Create;
  for idx1:=1 to 2000 do begin
    s:=RandomStr;
    SL1.Add(s);
    SL2.Add(s);
    SL2.Add(RandomStr);
  end;

  Start:=GetTickCount;
  SL3:=TStringList.Create;
  for idx2:=0 to SL2.Count-1 do
    if SL1.IndexOf(SL2[idx2])=-1 then SL3.Add(SL2[idx2]);
  Edit1.Text:=IntToStr(GetTickCount-Start);

  Start:=GetTickCount;
  for idx1:=0 to SL1.Count-1 do
    repeat
      idx2:=SL2.IndexOf(SL1[idx1]);
      if idx2<>-1 then SL2.Delete(idx2);
    until idx2<0;
  Edit2.Text:=IntToStr(GetTickCount-Start);

  SL1.Free;
  SL2.Free;
  SL3.Free;
end;

[min@y™]

Ну дай проект целиком-то, ёмаё.

[Аватар]

Д7 устроит? Чего есть на данный момент. И не 7z

[min@y™]

Ща глянем...
7z-то тут причём?
Я открою любой формат.