Entfernen von Duplikaten aus TStringList

Question

Ich analysiere ein Dataset und weise Werte zu TStringList zu Ich möchte die Duplikate vermeiden. Ich benutze den folgenden Code, aber es werden immer noch Duplikate eingefügt.

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; 

Warum werden die Duplikate hinzugefügt?

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

Answer 1

Sie http://docwiki.embarcadero.com/Libraries/XE2/en/System.Classes.TStringList.Duplicates gelesen haben, nicht wahr?

Dann verpasst man das wiederholte Wort gibt - "sortierte"

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

aus der Box Denken und die Duplikate vorne vermeiden?

Ich weiß nicht, was DB Sie verwenden, sondern zum Beispiel auf SQL Server ist es nur eine Frage der Abfrage:

'SELECT DISTINCT CHANNEL_INT FROM MYTABLE'; 

und dann können Sie die Ergebnisse Ihrer TStringList ohne besorgt zu sein über Duplikate hinzufügen .