TStringListから重複を削除する

Question

データセットを解析して値をTStringListに割り当てていますが、重複を避けたいです。私は次のコードを使用しますが、重複は挿入されます。

channelList := TStringList.Create; 
    channelList.Duplicates := dupIgnore; 
    try 
    dataset.First; 
    while not dataset.EOF do 
    begin 
     channelList.Add(dataset.FieldByName('CHANNEL_INT').AsString) ; 
     dataset.Next; 
    end; 

なぜ重複が追加されますか？

• http://docwiki.embarcadero.com/Libraries/XE2/en/System.Classes.TStringList.Duplicates

Answer 1

あなたはhttp://docwiki.embarcadero.com/Libraries/XE2/en/System.Classes.TStringList.Duplicatesを読んでいた、あなたはしませんでしたか？

次に、あなたが最も繰り返される単語を逃した -

channelList.Sorted := true 

---

var F: TField; 

channelList := TStringList.Create; 
channelList.Sorted := True; 
channelList.Duplicates := dupIgnore; 

try 
    dataset.First; 
    F := dataset.FieldByName('CHANNEL_INT'); 
    while not dataset.EOF do 
    begin 
     channelList.Add(F.AsString); 
     dataset.Next; 
    end; 

Answer 2

を「ソート」箱から出して考えてみようとフロントアップの重複を避けるため？

私はあなたが使用しているDBを知りませんが、SQLサーバー上の例えばそれが照会するだけです：

'SELECT DISTINCT CHANNEL_INT FROM MYTABLE'; 

、その後、あなたは重複を心配することなく、あなたのTStringListに結果を追加することができます。