Удалить несколько элементов из TStringList после сравнения

Question

Кто-нибудь может помочь, что является лучшим способом сравнить два строковых списка и получить от них отличные результаты?

Например, если у меня есть ALIST и Blist как

ALIST

• ABC
• CDE
• EFG
• KLM
• STA
• LMO
• TKJ

Blist

• АВС
• CDE
• EFG
• КЛМ
• СТА
• LMO
• TKJ
• FGJ
• FGJ
• ARE
• IJE

Если сравнивать их, как

 for i := 0 to BList.count-1 do 
     if AList.indexof(BList[i]) < 0 then 
     ResultList.Add(BList[i]); 

Результат является:

• FGJ
• FGJ
• ARE
• IJE

мне нужны элементы только один раз. Как я могу избежать нескольких элементов? Есть ли лучшее решение, чем сделать процедуру, которая удаляет несколько элементов из списка? Извините за мой английский и спасибо за помощь!

Answer 1

TStringList имеет свойство Duplicates, которое контролирует, что должно произойти, когда дубликаты попытаются быть добавлены в список отсортированных.

Из документации:

dupIgnore Игнорировать попытки добавить повторяющиеся строки в списке.

dupError возбудит исключение EStringListError при попытке добавить повторяющиеся строки в отсортированном списке.

dupAccept Разрешить дубликаты строк в отсортированном списке.

Таким образом, установить

ResultList.Sorted := True; 
    ResultList.Duplicates := dupIgnore;