Списки. Присвоение илемента по индексу. Удаляется или в никуда?

[Человек_Борща]

Доброго времени суток!

Реализуя очередной класс:

type
  tFListMgr=class(TList)
    private
      procedure SetItem(aIndex:Integer; aItem:TFileInfo);
      function GetItem(aIndex:Integer):TFileInfo;
    public
      property Files[aIndex:Integer]:TFileInfo read GetItem write SetItem;
  end;

implementation

{ tFListMgr }

function tFListMgr.GetItem(aIndex: Integer): TFileInfo;
begin
  Result:=Items[aIndex];
end;

procedure tFListMgr.SetItem(aIndex: Integer; aItem: TFileInfo);
begin
  Items[aIndex]:=aItem;
end;

Интересует этот момент:

procedure tFListMgr.SetItem(aIndex: Integer; aItem: TFileInfo);
begin
  Items[aIndex]:=aItem;
end;

Теряю ли я память при таком действии?
Если да, то как правильно?

[Аватар]

В SetItem просто запоминается адрес aItem. Если TFileInfo RECORD из QTypes, то должно выглядеть: Items[aIndex]:=Addr(aItem); сам объект нельзя удалять после этого, иначе при обращении к GetItem будет шах и мат
В GetItem соответственно: Result:=PFileInfo(Items[aIndex])^;

Потери будут при удалении итемов из List без освобождения памяти занятой под TFileInfo

[Человек_Борща]

вообще-то мой TFileInfo это TObject... пока остановился на аком варианте:

procedure TFListMgr.SetItem(aIndex: Integer; aItem: TFileInfo);
begin
  TFileInfo(Items[aIndex]).Free;
  Insert(aIndex, aItem);
  // Items[aIndex]:=aItem;
end;

[Аватар]

Insert и закомментированный участок равнозначны

[phomm]

Если TFileInfo это экземпляр некоего класса и Ваш наследник от TList просто хранит ссылку на созданный экземпляр (и больше этот экземпляр нигде не учитывается), то

List.items[2] := TfileInfo.create;
List.items[2] := TfileInfo.create; // <--

по стрелке теряем память, ведь её никто не чистит.
Я в таких случаях переопределяю метод Add и не присваиваю в Items напрямую экземпляров. Если надо напрямую то можно написать доп. метод, который сперва освобождает старый объект а потом кладёт новый.
А вообще если беспокойство о памяти, то ручками всё выверять в подобных методах, но это уже надо на постановку задачи смотреть, не всегда оправдана чистка объекта, бывают ведь и двойные ссылки, лист может просто хранит для каких-то целей. Я обычно реальное хранилище оборачиваю во что-то вроде фабрики, а остальные потребители могут просто хранить ссылку на объекты и только читать из хранилища фабрики нужные экземпляры.

[Человек_Борща]

Я храню Tobject в Tlist.
Надо ли мне делать так:

procedure TFListMgr.SetItem(aIndex: Integer; aItem: TFileInfo);
begin
  TFileInfo(Items[aIndex]).Free;//?
  Insert(aIndex, aItem);
end;

[Аватар]

Если у вас больше нигде нет указателя на замещаемый объект, то это остается единственным местом где его можно и нужно убить. Иначе будут утечки. Только Insert неуместно, если замещаете. Вставит по индексу aIndex, а то что там раньше было станет по индексу aIndex+1. То что в #3 закоментировали и будет замещением, а Insert вставка с раздвиганием. В #4 я чепуху написал