Rimozione di duplicati da TStringList

Question

Sto analizzando un set di dati e assegnando valori a TStringList Voglio evitare i duplicati. Io uso il seguente codice ma sono ancora inseriti dei duplicati.

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; 

perché vengono aggiunti i duplicati?

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

Answer 1

hai letto http://docwiki.embarcadero.com/Libraries/XE2/en/System.Classes.TStringList.Duplicates, non è vero?

Poi vi siete persi la parola più ripetuta lì - "ordinato"

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

pensare fuori dalla scatola ed evitare i duplicati in attacco?

Non so che cosa DB si utilizza, ma ad esempio su SQL server è solo una questione di interrogazione:

'SELECT DISTINCT CHANNEL_INT FROM MYTABLE'; 

e quindi è possibile aggiungere i risultati alla vostra TStringList senza essere preoccupati per i duplicati .