Сравнить два 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;

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

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

• Микросхемы динамической памяти DRAM
• Рассылка. Выпуск 213
• Как узнать на какой элемент списка наведена мышь?
• Возможно ли убрать заголовок и обводку вокруг UserForm?
• УРОК 23. КОНСТРУКТОР И ДЕСТРУКТОР
• Ввод значения в два Edit’а
• Canvas. График. Zoom
• Как передать переменную из get запроса в javascript?
• Автоматическое заполнение полей
• Как получить список всех открытых окон?