как правильно очистить данные модели

[CodeToad]

Здравствуйте  всем!

    Воодушевившись статьей Ярослава про подход "Control-Model-Presentation" применяю ,как в примере автозаполнение ,но передаю данные в StringList 

   вопрос как правильно уничтожить данные чтобы освободить память от списка и чтобы память не текла

   //------------------------------------------------------Нужно ли явно разрушать объект? C учетом того что каждое новое заполнение ввода порождает новый список для автозаполнения

        Edit1.Model.Data['hint_list'].AsType<TSTringList>.Clear;
        Edit1.Model.Data['hint_list'].AsType<TSTringList>.DisposeOf; //?

//--------------------------------------------------------------------------обнулять данные-> чтобы можно было проверить   Edit1.Model.Data['hint_list'].IsEmpty
        Edit1.Model.Data['hint_list']:=Tvalue.Empty; 

или

        Edit1.Model.Data['hint_list'].Empty;

Просьба сильно не пинать за вопрос так как после отпуска голова не варит совсем

[CodeToad]

Edit1.Model.Data['hint_list']:=Tvalue.Empty;  // крашит проект

Edit1.Model.Data['hint_list'].Empty //Для  IsEmpty ничего не меняется

Подскажите как?

 

[Евгений Корепов]

Вот кусок кода исходников из XE8 unit FMX.Controls.Model :

procedure TDataModel.SetData(const Index: string; const Value: TValue);
var
  DataRecord: TDataRecord;
begin
  if FDataSource = nil then
    FDataSource := TDictionary<string, TValue>.Create;
  if Value.IsEmpty then
    FDataSource.Remove(Index)
  else
    FDataSource.AddOrSetValue(Index, Value);

  DataRecord := TDataRecord.Create(Index, Value);
  SendMessage<TDataRecord>(MM_DATA_CHANGED, DataRecord);
end;

Судя по коду, нужно делать как то так :

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Model.Data['aaa']:=TStringList.Create;
  Edit1.Model.Data['aaa'].AsType<TStringList>.Add('111');
  Edit1.Model.Data['aaa'].AsType<TStringList>.Add('222');
  Edit1.Model.Data['aaa'].AsType<TStringList>.Add('333');
  Edit1.Model.Data['aaa'].AsType<TStringList>.Clear;
  Edit1.Model.Data['aaa'].AsType<TStringList>.Free;
  Edit1.Model.Data['aaa']:=TValue.Empty;
  if Edit1.Model.Data['aaa'].IsEmpty Then
    beep;
end;

 

Изменено 25 августа, 2016 пользователем Евгений Корепов