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

[Shouldercannon]

Есть два TStringList

  SL1.Add('C:\1.txt');
  SL1.Add('C:\2.txt');
  SL1.Add('C:\3.txt');

  SL2.Add('C:\1.txt');
  SL2.Add('C:\2.txt');
  SL2.Add('C:\3.txt');
  SL2.Add('C:\4.txt');
  SL2.Add('C:\5.txt');

Сравниваем каждую запись SL1 с записями SL2. В итоге нужно вывести
C:\4.txt и C:\5.txt, так как их нет в SL1

var
  SL3: TStringList;
  I, I2: Integer;
begin
  SL3 := TStringList.Create;
  // Проверка
  for I := 0 to SL1.Count - 1 do
  begin
    for I2 := 0 to SL2.Count - 1 do
    begin
      if not (SL1.Strings[I] = SL2.Strings[I2]) then
      begin
        SL3.Add(SL1.Strings[I]);
      end;
    end;
  end;

  ShowMessage(SL3.Text);
end;

Получаю
C:\1.tx
C:\1.tx
C:\1.tx
C:\1.tx
C:\2.txt
C:\2.txt
C:\2.txt
C:\2.txt
C:\3.txt
C:\3.txt
C:\3.txt
C:\3.txt

Знаю что в коде дыра, но не могу исправить.

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var SL1,SL2,SL3:tStringList;
    i,j:integer;
    d:boolean;
begin
   SL1:=tStringList.Create;
   SL2:=tStringList.Create;
   SL3:=tStringList.Create;

   SL1.Add('C:\1.txt');
   SL1.Add('C:\2.txt');
   SL1.Add('C:\3.txt');
   SL1.Add('C:\4.txt');
   SL1.Add('C:\5.txt');

   SL2.Add('C:\1.txt');
   SL2.Add('C:\2.txt');
   SL2.Add('C:\3.txt');

   SL3.Text:=SL1.Text;
   For i:=SL3.Count-1 downto 0 do
   begin
      d:=false;
      For j:=0 to SL2.Count-1 do
         If SL3[i]=SL2[j] then
         begin
            d:=true;
            Break;
         end;
      If d then
         SL3.Delete(i);
   end;

   Memo1.Text:=SL3.Text;

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

[Shouldercannon]

Нормально

[Arigato]

Тело цикла можно заменить на:

      If SL2.IndexOf(SL3[i])>=0 then
         SL3.Delete(i);

Переменные j и d выкинуть.

[min@y™]

var
  idx1, idx2: int32;
begin
  // bla-bla-bla
  
  for idx1:= 0 to SL1.Count - 1 do
    begin
      repeat
        idx2:= SL2.IndexOf(SL1[idx1]);
        if idx2 <> -1
          then SL2.Delete(idx2);
      until idx2 < 0;
    
      {if SL2.Count = 0 // раскомментарить, если SL1 длинный шопипец 
        then break;}
    end; // for
    
  // в итоге в SL2 останутся только те строки, которых нет в SL1.  
end;

[Аватар]

А если очень длинные стринглисты, что будет быстрей - удаление строк или добавление их в третий стринглист, не меняя первых два? Подозреваю, что удаление будет медленней, хотя не проверял, лень ковыряться в генофонде

[min@y™]

Подозреваю, что удаление будет медленней, хотя не проверял, лень ковыряться в генофонде

я тоже, когда был маленьким с курчавой головой, подозревал. А потом полез в classes.pas и подозрения кончились.

procedure TStringList.Delete(Index: Integer);
var
  Obj: TObject;
begin
  if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index);
  Changing;
  // If this list owns its objects then free the associated TObject with this index
  if OwnsObjects then
    Obj := FList[Index].FObject
  else
    Obj := nil;

  // Direct memory writing to managed array follows
  //  see http://dn.embarcadero.com/article/33423
  // Explicitly finalize the element we about to stomp on with move
  Finalize(FList[Index]);
  Dec(FCount);
  if Index < FCount then
  begin
    System.Move(FList[Index + 1], FList[Index],
      (FCount - Index) * SizeOf(TStringItem));
    // Make sure there is no danglng pointer in the last (now unused) element
    PPointer(@FList[FCount].FString)^ := nil;
    PPointer(@FList[FCount].FObject)^ := nil;
  end;
  if Obj <> nil then
    Obj.Free;
  Changed;
end;

это ж лучше копирования больших кусков памяти, не так ли?

[northener]

Сообщение от Аватар

А если очень длинные стринглисты, что будет быстрей - удаление строк или добавление их в третий стринглист, не меняя первых два? Подозреваю, что удаление будет медленней, хотя не проверял, лень ковыряться в генофонде

Удалять-то будет быстрее. Но ТС вроде не говорил о том что можно портить два первичных списка. А если сначала копировать один из списков в третий, а уж потом в нем удалять дубликаты, то вряд ли будет быстрее.

P.S. Ещё один анекдот вспоминается.
" -Как поймать две птицы?
- Очень просто. Надо поймать три птицы, а потом одну из них отпустить."

[northener]

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

я тоже, когда был маленьким с курчавой головой, подозревал. А потом полез в classes.pas и подозрения кончились.

procedure TStringList.Delete(Index: Integer);
var
  Obj: TObject;
begin
  if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index);
  Changing;
  // If this list owns its objects then free the associated TObject with this index
  if OwnsObjects then
    Obj := FList[Index].FObject
  else
    Obj := nil;

  // Direct memory writing to managed array follows
  //  see http://dn.embarcadero.com/article/33423
  // Explicitly finalize the element we about to stomp on with move
  Finalize(FList[Index]);
  Dec(FCount);
  if Index < FCount then
  begin
    System.Move(FList[Index + 1], FList[Index],
      (FCount - Index) * SizeOf(TStringItem));
    // Make sure there is no danglng pointer in the last (now unused) element
    PPointer(@FList[FCount].FString)^ := nil;
    PPointer(@FList[FCount].FObject)^ := nil;
  end;
  if Obj <> nil then
    Obj.Free;
  Changed;
end;

это ж лучше копирования больших кусков памяти, не так ли?

А реализацию TStringList.Add ты не забыл посмотреть? И где ты там нашел копирование больщих кусков памяти?

[min@y™]

А реализацию TStringList.Add ты не забыл посмотреть?

нет

И где ты там нашел копирование больщих кусков памяти?

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

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