Листинг 2.15. Удаление элемента из списка TtdObjectList
procedure TtdObjectList.Delete(aIndex : integer);
begin
{проверяем индексы сами, а не перекладываем эту обязанность на список}
if (aIndex < 0) or (aIndex >= FList.Count) then
olError(tdeIndexOutOfBounds, 'Delete', aIndex);
{если список владеет объектами, освобождаем память, занимаемую удаляемым элементом}
if DataOwner then
TObject(FList[aIndex]).Free;
{удалить элемент из списка}
FList.Delete(aIndex);
end;
function TtdObjectList.Remove(aItem : TObject): integer;
begin
{найти требуемый элемент}
Result := IndexOf(aItem);
{если элемент найден...}
if (Resul <> -1) then begin
{если список владеет объектами, освобождаем память, занимаемую удаляемым элементом}
if DataOwner then
TObject(FList[Result]).Free;
{удалить элемент из списка}
FList.Delete(Result);
end;
end;
В методе olSetItem (метод записи свойства Items массива), который устанавливает значение или вставляет элемент в список, можно обнаружить небольшой недостаток. Предположим, что программист написал следующий блок кода:
var
MyObjectList : TtdObjectList;
SomeObject : TObject;
begin
• • •
MyObjectList[0] := SomeObject;
Все кажется довольно-таки безобидным, но подумайте, что случится, если данные принадлежат списку. В результате выполнения оператора присваивания элемент с индексом 0 будет замещен новым объектом, SomeObject. Предыдущий объект будет безвозвратно потерян, и ссылки на него окажутся недействительными. Таким образом, перед заменой старый объект нужно освободить. Конечно, сначала следует проверить принадлежит ли новый объект к требуемому типу.
Листинг 2.16. Запись элемента в TtdObjectList
procedure TtdObjectList.olSetItem(aIndex : integer;
aItem : TObject);
begin
{проверить тип элемента}
if (aItem = nil) then
olError(tdeNilItem, 'olSetItem', aIndex);
if not (aItem is FClass) then
olError(tdeInvalidClassType, 'olSetItem', aIndex);
{проверяем индексы сами, а не перекладываем эту обязанность на список}
if (aIndex < 0) or (aIndex >= FList.Count) then
olError(tdeIndexOutOfBounds, 'olSetItem', aIndex);
{если список владеет объектами и объект с текущим индексом должен быть заменен новым объектом, сначала освобождаем старый объект}
if DataOwner and (aItemoFList [aIndex]) then
TObject(FList[aIndex]).Free;
{сохранить в списке новый объект}