Delphi! Удаление дубликатов из одного файла в другом! Как реализовать?

Question

[nalimite]

Как максимально быстро удалить дубликаты строк из одного файла в другом?
Есть код :

procedure DubleClear.Execute;
var
  i,j:integer;
  d:boolean;
begin

  For i:=AdditionalBase.Count-1 downto 0 do
   begin
      d:=false;
      For j:=0 to MainBase.Count-1 do
         If AdditionalBase[i]=MainBase[j] then
         begin
            d:=true;
            Break;
         end;
      If d then
         MainBase.Delete(i);
   end;
   Rez := 2;
   Synchronize(Sync);
end;

Где MainBase - Это стринглист где нужно искать дубликаты и их удалять.
AdditionalBase - Это База где куча слов с которой нужно сравнить MainBase.

Answer 1

[xmoonlight]

stackoverflow.com/questions/33616774/how-to-make-a...