Usuń ciągi znaków z TStringList

Question

Mam pole listy lub widok listy z elementami. I mam listę ciągów z tymi samymi elementami (łańcuchami) co pole Lista/Widok listy. Chcę usunąć wszystkie zaznaczone elementy w polu listy/widoku listy z listy ciągów.

Jak to zrobić?

for i:=0 to ListBox.Count-1 do 
    if ListBox.Selected[i] then 
    StringList1.Delete(i); // I cannot know exactly an index, other strings move up 

Answer 1

for i := ListBox.Count - 1 downto 0 do 
    if ListBox.Selected[i] then 
    StringList1.Delete(i); 

Answer 2

Sztuką jest uruchomienie pętli w odwrotnej kolejności:

for i := ListBox.Count-1 downto 0 do 
    if ListBox.Selected[i] then 
    StringList1.Delete(i); 

ten sposób akt usuwania elementu zmienia tylko indeksy pierwiastków później w liście, a ci, elementy zostały już przetworzone.

Answer 3

Co powiesz na to, że robisz to w drugą stronę (dodawanie zamiast usuwania)?

StringList1.Clear; 
for i:=0 to ListBox.Count-1 do 
    if not ListBox.Selected[i] then StringList1.Add(ListBox.Items(i)); 

Answer 4

Rozwiązanie dostarczone przez Andreasa i Davida zakłada, że ​​ciągi są dokładnie w tej samej kolejności zarówno w ListBox, jak iw StringList. Jest to dobre założenie, ponieważ nie wskazuje się inaczej, ale w przypadku, gdy nie jest prawdą, można użyć metody StringList do znalezienia indeksu ciągu znaków (jeśli lista łańcuchów jest posortowana, należy zamiast tego użyć Find). Coś takiego jak