Xóa chuỗi khỏi TStringList

Question

Tôi có Hộp danh sách hoặc Chế độ xem danh sách với các mục. Và tôi có một danh sách chuỗi có cùng các mục (chuỗi) dưới dạng Khung danh sách/Chế độ xem danh sách. Tôi muốn xóa tất cả các mục đã chọn trong Chế độ xem danh sách hộp/danh sách từ danh sách chuỗi.

Cách thực hiện?

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

Bí quyết là để chạy vòng theo thứ tự ngược:

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

Bằng cách này, các hành động xóa một mục chỉ thay đổi các chỉ số của các yếu tố sau trong danh sách, và những người các yếu tố đã được xử lý.

Answer 3

Làm cách nào để thực hiện theo cách khác (thay vì xóa)?

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

Answer 4

Giải pháp do Andreas và David cung cấp giả định rằng các chuỗi chính xác theo thứ tự trong cả ListBox và StringList. Đây là giả định tốt vì bạn không chỉ ra cách khác, nhưng trong trường hợp không đúng, bạn có thể sử dụng phương thức IndexOf của StringList để tìm chỉ mục của chuỗi (nếu StringList được sắp xếp, hãy sử dụng Find thay thế). Một cái gì đó như

var x, Idx: Integer; 
for x := ListBox.Count - 1 downto 0 do begin 
    if ListBox.Selected[x] then begin 
     idx := StringList.IndexOf(ListBox.Items[x]); 
     if(idx <> -1)then StringList.Delete(idx); 
    end; 
end;