prod @6 1 2"> Figura 1. Projeto inicial em Win32 O projeto está dividido em duas units: a primeira contém a interface visual e a segunda, uma classe para pesquisa de arquivos nos diretórios, que pode ser visualizada na Listagem 1. Listagem 1. Classe para procurar arquivos TProcuraArquivos = class private FMascaraArq: string; FDirInicial: string; FOnArquivoEncontrado: TArquivoEvent; FOnNovoDiretorio: TDiretorioEvent; FOnInicioProcessamento: TNotifyEvent; FOnFinalProcessamento: TNotifyEvent; procedure SetDirInicial(const Value: string); procedure SetMascaraArq(const Value: string); procedure SetOnArquivoEncontrado( const Value: TArquivoEvent); procedure SetOnFinalProcessamento( const Value: TNotifyEvent); procedure SetOnInicioProcessamento( const Value: TNotifyEvent); procedure SetOnNovoDiretorio( const Value: TDiretorioEvent); procedure ProcuranoDiretorio(NomeArq: string); protected public procedure ProcuraArquivos; published property MascaraArq: string read FMascaraArq write SetMascaraArq; property DirInicial: string read FDirInicial write SetDirInicial; property OnInicioProcessamento: TNotifyEvent read FOnInicioProcessamento write SetOnInicioProcessamento; property OnFinalProcessamento: TNotifyEvent read FOnFinalProcessamento write SetOnFinalProcessamento; property OnArquivoEncontrado: TArquivoEvent read FOnArquivoEncontrado write SetOnArquivoEncontrado; property OnNovoDiretorio: TDiretorioEvent read FOnNovoDiretorio write SetOnNovoDiretorio;
Quer ler esse conteúdo completo?
Tenha acesso completo
