Mostraremos uma maneira simples e prática para listar o conteúdo de um diretório com a opção de incluir nessa listagem os arquivos de seus subdiretórios. No exemplo abaixo temos um Edit para receber o diretório a ser pesquisado um CheckBox para indicar se os subdiretórios entrarão na pesquisa um botão para efetuar a pesquisa e um Memo para listar os arquivos encontrados, no final um Edit que receberá o cálculo final (em bytes) da soma do tamanho dos arquivos. procedure TForm1.Button1Click(Sender: TObject); begin tamanhoTotal := 0; memLista.Lines.Clear; ListarArquivos(edtDiretorio.Text, chkSub.Checked); Edit1.Text := IntToStr( tamanhoTotal ); end; procedure TForm1.ListarArquivos(Diretorio: string; Sub:Boolean); var F: TSearchRec; Ret: Integer; TempNome: string; begin Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F); try while Ret = 0 do ...
Desenvolvimento e Tecnologia da Informação
Se o twitter ta morrendo não tenho nada a ver huahusahusa para mim e suficiente o blog , conta de imail, orkut mais coisas do que isso, isso por que temos que lembra da senha do blogblogs e outros.....
ResponderExcluirConcordo com o Carlos. Ainda não cai nos encantos do twitter.Por mim já vai tarde..rs.
ResponderExcluirÉ pessoal nada aconteceu (como esperado), uso o twitter apenas como meio de divulgação do blog mas tem certas pessoas bem interessantes a ser seguidas.. , um abraçoa a todos e obrigado pela visita...
ResponderExcluirTragico
ResponderExcluirBy: Intr3pid