Очищение объектов

[Лелик_1044]

Допустим заносим в stringlist
3 Объекта
AddObject('1',someojbject1);
AddObject('2',someojbject2);
AddObject('3',someojbject3);

Как теперь их правиль очистить
Просто
Items.Clear

Или

for I:=0 to StringList.Items.Count-1 do
begin
FreeMemory(StringList.Items.Object);
StringList.Items.Object:=nil;
end;
end;
finally
StringList.Items.Clear;
end;

[LAngel]

Можно это легко проверить:
ctrl+click на Clear покажет нам реализацию этого метода:

Код: Выделить всё

procedure TStringList.Clear;
begin
  if FCount <> 0 then
  begin
    Changing;
    Finalize(FList^[0], FCount);
    FCount := 0;
    SetCapacity(0);
    Changed;
  end;
end;

Как мы видим - тут идет очистка только массива строк.

как вариант - можно создать свой класс-наследник TStringList и уничтожать объекты

Код: Выделить всё

  TMyStringList = class(TStringList)
  public
    procedure Clear; override;
  end;

implementation

procedure TMyStringList.Clear;
var
  i: Integer;
begin
  for i := 0 to Count-1 do
  if Assigned(Objects[i]) then
    Objects[i].Free;
  inherited;
end;

Ну и все дополнительные функции типа Delete и т.д. описать подобным образом.

[Duncon]

Непомню как насчет stringlist, а вот TList нормально работает с объектами и сам за ними чистит, единственное четко не помню методы давно не работал с ним..

[LAngel]

Duncon, тоже не удаляет

Код: Выделить всё

procedure TList.Clear;
begin
  SetCount(0);
  SetCapacity(0);
end;

[Duncon]

Не не, там при пработе с объектом методы delete и Remove - вот он как раз данные типа Pointer рушит.. методы типа clear и Delete не освобождают память, только сам список..

[Игорь Акопян]

Лелик, хелп про Clear содержит:

Description

Call clear to empty the list of strings. All references to associated objects are also removed. However, the objects themselves are not freed.

Objects освобождать вручную, нилить не обязательно

[Duncon]

Типа можно утечку памяти словить..

[Лелик_1044]

Т.е они получаются все время в памяти сидият?
Блин наткнулся напрогу одну, а там такой метод очищения стоит.

[Duncon]

Да сидят..
Юзай Remove

[Лелик_1044]

FreeMemory(treeview.items.item.data);
Иногда ошибка выскакивает
Из чего может быть?