Editing ray

Title / Description

Code
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;

Author

Highlight as C C++ CSS Clojure Delphi ERb Groovy (beta) HAML HTML JSON Java JavaScript PHP Plain text Python Ruby SQL XML YAML diff code