Сравнить два TStringList, найти уникальные строки

Posted by obzor under Delphi

Есть два 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

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;

тема на форуме

Случайные статьи

• Поиск данных в выводе команды и занесение в переменную
• Как сохранить файл из StringGrid без табуляций и переходов?
• Как yменьшить картинку с помощью php
• Рассылка. Выпуск 104
• Средства по созданию сайтов
• Чтение параметров запуска программы
• Delphi. Директивы компилятора HPPEMIT,NODEFINE,EXTERNALSYM
• Подавление и выплеск деструктивных эмоций.
• Delphi 7 или RAD 2010?
• Функция для удаления любого процесса, в котором включается привилегия доступа SE_DEBUG_NAME