Esse artigo faz parte da revista Clube Delphi edição 15. Clique aqui para ler todos os artigos desta edição



Atenção: por essa edição ser muito antiga não há arquivo PDF para download. Os artigos dessa edição estão disponíveis somente através do formato HTML. 

 

TclientDataset – Parte II

Implemente índices ascendentes e descendentes

Primeiramente obrigado pelos e-mails recebidos, vejo que o pessoal leu e gostou do novo caminho para programar que o componente TclientDataset nos oferece, mas preparem-se, porque até agora nós apenas começamos a nos divertir ...

Errata

Gostaria de me desculpar com os leitores, já que existe um pequeno erro no projeto que foi utilizado para ilustrar o primeiro artigo, quando tentamos “setar” o índice atual para DEFAULT ORDER. Tentando obter a ordenação original da Query, uma exception é gerada, e isto ocorre porque DEFAULT ORDER deve ser escrito com um underscore, sendo assim basta que a grafia seja trocada em seus projetos desta forma:

 

DEFAULT ORDER   para   DEFAULT_ORDER

 

Prometo ser mais atencioso daqui para frente.

Criando índices Descendentes e Ascendentes

Interessante como tenho recebido perguntas sobre a criação de índices ascendentes e descendentes dinamicamente, provavelmente porque muitos softwares do mercado oferecem esta facilidade em suas interfaces. Ok, o caso não é tão complicado e nem tão extenso, entretanto existe um número expressivo de soluções diferentes ...

Vamos partir da mais simples. Se for necessário poderemos incrementar no futuro.

O código responsável pela criação do índice dinâmico é este:

...

Quer ler esse conteúdo completo? Tenha acesso completo