удалить все элементы из списка объектов, кроме одного выбранного элемента

Question

Что лучше всего применять при кодировании при удалении всех элементов из списка, кроме одного элемента, который я хотел бы сохранить внутри списка?

TMyCLass = Class() 
    .... 
end; 


MyObjectList = TObjectList <TMyClass>; 


var MySaveClass : TMyCLass; 
begin 
    MySaveClass = MyObjectList.items[saveindex]; 

    for i = 1... MyObjectList.count-1 do 
     if i <> saveindex then 
     MyObjectList.delete (i); ?? // not working :-) 

end; 

Answer 1

Как TLama сказал в комментарии, Extract элемент, Clear список (если OwnsObjects является ложным, цикл через и свободно каждый элемент первого), а затем Add элемент обратно.

var 
    SavedItem: TMyClass; 
... 
    SavedItem := MyObjectList.Extract(MyObjectList.Items[i]); 
    // Loop here to free if needed because list doesn't own objects 
    MyObjectList.Clear; 
    MyObjectList.Add(SavedItem); 

Answer 2

Если список объектов имеет OwnsObjects: = True, вы можете просто удалить элементы. Но будьте осторожны, чтобы сделать это назад, иначе вы можете получить сообщение об ошибке.

for i := MyObjectlist.count -1 downto 0 do 
    if i = Saveindex then 
    continue 
    else 
    MyObjectList.Delete(i);