teste

  procedure ExemploCadastro();
  var
    CadastroConteudo: TCadastroConteudo;
  begin
    WaitShow('Cadastrando o texto...');
    CadastroConteudo := TCadastroConteudo.Create(ParametrosSistema.DatabasesFD.DataBaseSkyLivros, mccIndexacao); //Cria o TCadastroConteudo em modo de Indexação
    try            
      CadastroConteudo.OnProgress := ProgressoCadastro; //Útil para mostrar o andamento dos cadastros
      CadastroConteudo.ListaConteudo := ObterListaConteudoDoBanco(ParametrosSistema.DatabasesFD.DataBaseSkyLivros); //Obtem os dados atuais do Banco

      CadastroConteudo.Texto := 'Exemplo de um texto com o Identificador 2 na seção SKY';
      CadastroConteudo.Secao := 'SKY';
      CadastroConteudo.Identificador := 2;  
      CadastroConteudo.AplicarValores();    
    
      CadastroConteudo.Texto := 'Exemplo de um outro texto na seção SKY, porém com identificador 5';
      CadastroConteudo.Secao := 'SKY';
      CadastroConteudo.Identificador := 5;  
      CadastroConteudo.AplicarValores();   
    
      CadastroConteudo.Texto := 'Mais um texto de identificador 5, só que desta vez na seção EXEMPLO';
      CadastroConteudo.Secao := 'EXEMPLO';
      CadastroConteudo.Identificador := 5;  
      CadastroConteudo.AplicarValores();  
    
      CadastroConteudo.SalvarAlteracoes(); //Salva tudo o que foi aplicado até então.
    finally
      CadastroConteudo.Free();
      WaitClose();
    end; 
  end;

  procedure ExemploConsulta();
  var
    ConsultaConteudo: TConsultaConteudo;
    lIdentificadores: TList;
  begin
    ConsultaConteudo := TConsultaConteudo.Create(ParametrosSistema.DatabasesFD.DataBaseSkyLivros);
    try
      lIdentificadores := ConsultaConteudo.Procurar('TEXTO', 'SKY');
      try
  //Neste momento a lista lIdentificadores possui 2 itens, que são justamente os dois identificadores utilizados no cadastro da seção SKY
  ShowMessage(IntToStr( Integer(lIdentificadores.Items[0]) )); //Exibe 2 na tela 
  ShowMessage(IntToStr( Integer(lIdentificadores.Items[1]) )); //Exibe 5 na tela
      finally
  lIdentificadores.Free();
      end;  
      
      lIdentificadores := ConsultaConteudo.Procurar('SECAO', 'EXEMPLO');
      try
  //Neste momento a lista lIdentificadores possui somente 1 item
  ShowMessage(IntToStr( Integer(lIdentificadores.Items[0]) )); //Exibe 5 na tela 
      finally
  lIdentificadores.Free();
      end;          
    finally
      ConsultaConteudo.Free();
    end; 
  end;