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

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

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

• Получить путь к исполняемому файлу включая имя исполняемого файла. [WPF]
• Как лучше проверить адрес E-mail на правильность?
• Поиск файла на диске
• Вопрос по использованию компонента RichEdit
• Замена в строке разными значениями?
• Текстовый редактор на Perl
• Заменить код на старнице
• Работа в MySQL. Как создать простой тест?
• Пример использования потока в форме
• Как вычесть дату?