Слияние двух текстовых файлов

[nataly_ukr]

Есть два текстовых файла У них есть одинаковые записи Нужно слить их и получить третий, у которого не было бы повторяющихся записей Как всегда из-за своей лени решила использовать свойство Duplicates Но видно что-то не поняла Сортировка работает , но программа просто сливает два файла На каком этапе мне вставить этот Duplicates

var
   SL,Sl1,Result :TStringList;
   z33: integer;
 begin
 Form1.Visible:=true;
   result:=nil;
   SL:=TStringList.Create;
   SL1:=TStringList.Create;
   result:=TStringList.Create;

  SL.LoadFromFile('album.txt'); // ?????? ?????? ?? ?????
  Sl.Sorted:=true;
  Sl.Duplicates:=dupAccept;

   SL1.LoadFromFile('album11.txt'); // ?????? ?????? ?? ?????
   Sl1.Sorted:=true;
   Sl1.Duplicates:=dupAccept;
   For Z33:=0 to SL1.Count-1 do
     begin
       SL.Add(SL1[z33]);
      //  showMessage('rr');
     end;
     SL.SaveToFile('result.txt');
  end;

[KAMENYKA]

После того как свойство Sorted первого листа(в твоём случае) равна true;
Тобиш SL.Sorted:=true;
SL.Duplicates:=dupIgnor;

[KAMENYKA]

а точнее так:

var
SL,Sl1,Result :TStringList;
z33: integer;
begin
Form1.Visible:=true;
result:=nil;
SL:=TStringList.Create;
SL1:=TStringList.Create;
result:=TStringList.Create;

SL.LoadFromFile('album.txt'); // ?????? ?????? ?? ?????
Sl.Sorted:=true;
Sl.Duplicates:=dupAccept;

SL1.LoadFromFile('album11.txt'); // ?????? ?????? ?? ?????
Sl1.Sorted:=true;
Sl1.Duplicates:=dupAccept;
For Z33:=0 to SL1.Count-1 do
begin
SL.Add(SL1[z33]);
SL.Sorted:=true;
SL..Duplicates:=dupIgnore;
// showMessage('rr');
end;
SL.SaveToFile('result.txt');
end;

[nataly_ukr]

Во-первых я не поняла почему SL.Duplicates:=dupIgnor; он указывает что контроля нет
Во-вторых я все же сделала как написано - результат тот же

[KAMENYKA]

Вот держи всё работает!

[nataly_ukr]

Все получилось Спасибо за помощь