PROGRAMERO

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       begin         if TemAtributo(F.Attr,

Para essa pequena dica construiremos um formulário contendo dois Edits e um botão, o primeiro Edit recebe o caminho e nome do arquivo, o segundo receberá o tamanho em bytes. Segue a cadificação do evento click do botão: procedure TForm1.Button1Click(Sender: TObject); var   SR: TSearchRec;   I: integer; begin   I := FindFirst(Edit1.Text, faArchive, SR);   try     if I = 0 then       Edit2.Text := IntToStr( SR.Size )     else       Edit2.Text := '-1';   finally     FindClose(SR);   end; end; Baixe o exemplo completo aqui .

Para os mais atentos não é novidade que a TV Globo não só deturpa a realidade de certos acontecimentos em prol de determinados indivíduos como mina a capacidade de discernimento do certo e errado do nosso país com suas superproduções recheadas com enredos absurdos que passam longe da realidade da nação. Novelas com contextos que não ignoram o flagelo da maioria, mas que sempre passam a falsa impressão de que nem tudo esta tão mal assim ou que um dia tudo melhora, ou seus programas vazios de conteúdo que exploram o que ha de pior nos participantes (que já não são grande coisa, e eu me recuso ate a escrever o nome, mas que todos já devem imaginar do que estou falando) tem sido de grande importância para a manutenção de tantos governos corruptos, civis ou militares, que tem alargado cada vez mais o abismo entre os pobres e ricos. A lavagem cerebral realizada ao longo e tantos anos e notória, basta olhar agora para a TV do seu vizinho ou mesmo a sua e verificar em qual canal ela esta sinto