TObjectList - проблемы с удалением\очисткой

[Dee63]

Всем привет!
Дано:

type
  TCellObjList= class(TObjectList)
  end;

var
  ItmList: TCellObjList;

Забиваю я этот ItmList так:

  ItmList.add(pointer(itm));

где itm это переменная собственного типа моего.

У меня есть StringGrid и в его Objects[Acol, ARow] закидывается тот самый pointer(itm).

Это все работает.

Затем мне надо перерисовать stringgrid и, естественно, objects его тоже заменить на новые.

Я полагаю, что конструкция ItmList.Clear; должна очистить список и установить его Coun=0 (так и гласит справка).

Но как только дело доходит до очистки- я получаю

exception class EAccessViolation with message 'Access violation at address 00000001. Read of address 00000001'.

соответственно очищения не происходит и труба.
Где я не дописал чего?

p/s я пробовал сначала все объекты в StringGrid обнулять вот так

 StringGrid.objects[ACol, ARow]:=nil

и потом делать очистка списка, но результат такой же.

Прошу помочь и наставить на путь правильный. D7

[Аватар]

Taм в TObjectList.Notify используется TObject.Free для освобождения памяти.

переменная собственного типа моего

От чего наследован тип? Если не от TObject или его потомков, то приехали - очищать ручками

[ДралсяСошибками]

Для переменной собственного типа может использовать TList?

[Аватар]

Tlist.Notify вообще пустышка - > Clear в нем, который и вызывает Delete и дальше Notify память не освобождает

Для переменной собственного типа может использовать TList?

Можно, но память самостоятельно освобождать

[ДралсяСошибками]

Наверно проще будет переменную собственного типа унаследовать от TObject

[Dee63]

Сообщение от Аватар

Taм в TObjectList.Notify используется TObject.Free для освобождения памяти.
От чего наследован тип? Если не от TObject или его потомков, то приехали - очищать ручками

Именно не от TObject.
Вот в чем беда кроется...

Ручками чистить это вы о ItmList.delete[i] или о ItmList.items[i]:=nil?
В моей ситуации

itmList.Items[i]:=nil

и

itmList.Delete(i);

приводят к одинаковой ошибке EAccessViolation

[Аватар]

А как их создавал? Код создания сюда

[ДралсяСошибками]

И на переменную собственного типа бы посмотреть))

[evg_m]

должна очистить список и установить его Coun=0 (так и гласит справка).

Очистить список объектов можно ДВУМЯ способами
1) удалить ссылки из списка, но с самими объектами НИЧЕГО не делать.
2) удалять ссылки с УНИЧТОЖЕНИЕМ (Free) объектов.

Режим очистки задается при СОЗДАНИИ контейнера.
Create(False); указывает что объекты ДОЛЖНЫ оставаться.

Create creates a TObjectList instance. If no parameter is specified, or if the constructor is called with AOwnsObjects set to true, the new TObjectList is initialized with OwnsObjects set to true.

гласит та же справка.

[Dee63]

Тип объявлен вот так:

  BData = ^TBData;
  TBData= Record
    number:string;
    CellColor: TColor;
    FontColor: TColor;
    status:string;
    client:string;
    client_mark:string;
  end;

в процедуре объявлена переменная

var
  itm: BData;

и с ней работа строится так:

new(itm);
...
itm^.number:= number;
...

И вот так она кидается в лист

ItmList.Add(pointer(itm));

Потом в другой функции она достается из спика- чтение чего-то или добавление и назад туда же возвращается уже вот так

ItmList.items[i]:= pointer(itm)