Пытаюсь разобраться с TList. Как чего удалять?

[Ship_1]

Что-то я вижу в примерах, как создаются TList, но не вижу, как они удаляются... Типа myList.Free. Для TList этого не нужно, что ль?
И ещё, как я прочитал, TList - это список указателей на элементы. Т.е., если у меня есть класс, и я добавляю объект класса в TList, то myList.delete[i] не удаляет объект из памяти? Мне нужно делать так?
Часть 1. Присвоение.

type
  TMyClass = class
    ind: integer;
  end;

procedure AddToList;
var
  MyList:TList;
  MyEl:TMyClass;
  i: integer;
begin
  MyEl:=TMyClass.create;
  for i:=0 to 10 do
  begin
    MyEl.ind := i;
    MyList.Add(MyEl);
  end;
  MyEl.Destroy;
end;

Часть 2. Удаление.

procedure DelFromList;
var
  MyList:TList;
  MyEl:TMyClass;
  i:integer;
begin
  For i:=0 to 10
// А чего вообще тут-то? MyList[i].Destroy? А потом, чтоб указатель в TList не остался, MyList[i].delete?
end;

Как вообще с этим работать? Поясните, пожалуйста...

[Alex11223]

В TList всякий геморой с указателями, я его не осилил когда писал на Дельфи )

Говорю ж, TObjectList проще для объектов. + есть флаг, чтоб он сам вызывал Free при удалении элементов (методы Delete или Remove) или очистке списка или уничтожении (Free) списка.

И .Free вместо Destroy.

[Ship_1]

Ну хорошо, а если перенести это в TObjectList, то, в первую очередь, надо установить OwnsObjects := true, а потом Delete удаляет элемент из списка и сам объект? Я правильно понял, что TObjectList хранит сами объекты, а не указатели на них? Т.е. при
MyClass:=TMyClass.create;
MyObjectList[0]:=MyClass;

MyClass.Free;
не уничтожает MyObjectList[0]? Его уничтожает MyObjectList.Delete(0)?

[evg_m]

procedure AddToList;
var
  MyList:TList;
  MyEl:TMyClass;
  i: integer;
begin
  MyEl:=TMyClass.create;
  for i:=0 to 10 do
  begin
    MyEl.ind := i;
    MyList.Add(MyEl);
  end;
  MyEl.Destroy; // А теперь у нас есть ссылка на РАЗРУШЕННЫЙ объект 
 // ссылка в List осталась, но объект-то(последний из тех что добавляли) мы разрушили.
end;

procedure DelFromList;
var
  MyList:TList;
  MyEl:TMyClass;
  i:integer;
begin
  For i:=0 to 10
// А чего вообще тут-то? MyList[i].Destroy? А потом, чтоб указатель в TList не остался, MyList[i].delete?

ОБЫЧНО 
tmp:=MyList[i];  // сначала получить локальную ссылку на удаляемый объект
MyList.Remove(tmp); //потом ИСКЛЮЧИТЬ данный элемент из списка или так 
MyList.Delete(i); // или этак не помню как будет правильно
tmp.Free; // и теперь разрушаем САМ объект, если он нам не нужен
end;

ну и конечно при цикличном удалении надо учитывать ИЗМЕНЕНИЕ индексов при удалении из середины.

  For i:=10 downto 0

[Alex11223]

Указатели. В Дельфи вроде нельзя никак передать объекты не по указателю, только если вручную скопировать значения.

TObjectList это просто более удобная обертка над TList для объектов.

Добавлять через .Add, удалять Delete или Remove.

Если с OwnsObjects, то самому не надо уничтожать элементы.

[Ship_1]

evg_m Вроде стало понятней немного, спасибо.
Alex11223, в случае TObjectList замечание от evg_m по первой части остаётся справедливым?

[Alex11223]

Да, только .Free у элемента никогда не надо если OwnsObjects.

И еще (в обоих случаях) если tmp это TMyClass, то до 2009 надо

tmp := TMyClass(list[i]);

[Ship_1]

Ух ты. Это серьёзный комментарий, даже и не предположил бы. Спасибо!

[evg_m]

Alex11223, в случае TObjectList замечание от evg_m по первой части остаётся справедливым?

Да.
Боле того, у нас ВСЕ ссылки будут НЕВЕРНЫМИ.

MyEl:=TMyClass.create;
  for i:=0 to 10 do
    MyList.add(MyEl);

Мы просто десять раз добавили один и ТОТ же объект.
проверить это просто.

for j:=0 to 10
  ShowMessage(inttostr((MyList[j] as TMyclass).i );

десять раз будет выведено 10 (при учете исправления замечания про Destroy)

For i:=1 to 
  r:=TmyClass.Create; // создавать объект надо КАЖДЫЙ раз.
  MyList.add(r);
  r.i:=i;

[Ship_1]

Спасибо большое!! Теперь, надеюсь, не наделаю глупостей и не оставлю в памяти кучу мусора