VPF::Утечка памяти в TValueListEditor.ItemProps

flomaster

Дата 15.6.2009, 23:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 28.12.2007
Где: СПб

Репутация: нет
Всего: нет

Подключен FastMM4.84
На форму положен TValueListEditor.
Заполняю строки, использую форму, уничтожаю форму, закрываю программу.
Получаю сообщение об утечке 1хItemProp.

В цикле перебираю поля записи, заполняю строки ValueListEditor, если поле-лукап, то заполняю список подстановки:

Код


    // Проверяем, нужен ли список подстановки
          if f.FieldKind=fkLookup then {f : TField, f:=Dataset.Fields.Fields[i];}
          begin
            ValueListEditor.ItemProps[i].EditStyle := esPickList; //<<-- при закомментировании строки, сообщения об утечке нет.
            Lookadset:=f.LookupDataSet;
            Lookadset.First;
    //Заполняем список подстановки
            while not Lookadset.Eof do
            begin
              ValueListEditor.ItemProps[i].PickList.Add(Lookadset.Fieldbyname(f.LookupResultField).AsString);
              Lookadset.Next;
            end;

Делаю вывод, что присвоение ItemProps[i].EditStyle := esPickList; приводит к созданию объекта, который не удаляется автоматически.
При этом сам ValueListEditor.Strings освобождается автоматически с удалением формы.
Применить ItemProps[i].Free в дестроере формы не удалось, т.к. код (см ниже) вызывал AV.

Код


  for i:=0 to vle.RowCount-1 do
    if assigned(vle.ItemProps[i]) then
      vle.ItemProps[i].Free;

Проблему решает ValueListEditor.Strings.Clear;
Хотелось бы понять почему так происходит, в Хелпе и имеющихся книжках упоминания о необходимости очищать ItemProps не нашел.
И как правильно освобождать ValueListEditor и его объекты?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »