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.
Pesquisa de Arquivos
Busca rápida com mFileScan e APLs do Windows
A VCL, como sabemos, não possui componentes para realizar a busca direta de arquivos no disco. Para realizar tal tarefa o programador deve usar diversas rotinas de tratamento de arquivos do Delphi, como o FindFirst, FindNext, CloseFile, etc., o que é pouco produtivo. Pensando nisso, o sueco Mats Asplund criou o componente mFileScan, que auxilia na pesquisa de arquivos no disco ou em uma unidade de rede.
Criaremos um exemplo utilizando este componente, além de explorar uma biblioteca de manipulação de arquivos e outros componentes criados pelo mesmo autor.
Instalação e Configuração
O componente mFileScan é freeware e vem com o código fonte. Para instalá-lo, acesse o site go.to/masdp, clique na seção Components, depois em System, files e baixe o componente. Descompacte o arquivo para um diretório à sua escolha. Como o componente é distribuído somente com o arquivo .pas, vamos criar um pacote para ele no Delphi. Abra o Delphi e clique em File\New>Other. Em seguida, clique na aba New e escolha Package. Salve o pacote, clique em Options e na aba Description digite “Componente FileScan”. Essa descrição é a que aparece na lista de pacotes instalados (acessada a partir do menu Component\InstallPackages). Ainda nas opções do projeto, clique na aba Directories/Conditionals e configure as opções como a seguir:"
[...] continue lendo...