Criando gráficos em Delphi

Olá pessoal,

Precisei recentemente criar gráficos em delphi, mas não queria utilizar um ClientDataSet, no meu caso precisava criar 6 gráficos cada um com 2 séries, seria um trabalho muito grande, então encontrei o link que segue abaixo e por ser simples e objetivo, estou compartilhando com vocês, espero que seja útil como foi para mim.

http://www.andreanolanusse.com/pt/criando-graficos-em-sua-aplicacao-delphi-com-teechart/

Sucesso!

Impressora Fiscal Elgin ZPM e Elgin X5

Para usuário que precisam configurar impressoras fiscal em seu aplicativo a Impressora Fiscal Elgin ZPM e a Impressora Elgin X5 funciona com os drives da Urano também.

Listar arquivos de diretórios

Boa Tarde .
Esta dica abaixo serve pra listar os arquivos de um determinado diretório, e seu sub diretórios.
Eu usei um ListBox pra listar os arquivos, mas fica a critério de cada um.

procedure TForm1.ListarArquivos(Diretorio: string; Sub:Boolean);

function TemAtributo(Attr, Val: Integer): Boolean;
begin
   Result := Attr and Val = Val;
end;

var
  F: TSearchRec;
  Ret: Integer;
  TempNome: string;
begin
   Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F);
   try
      while Ret = 0 do begin
         if TemAtributo(F.Attr, faDirectory) then begin
            if (F.Name <> '.') and (F.Name <> '..') then
               if Sub = True then begin
                  TempNome := Diretorio+'\' + F.Name;
                  ListarArquivos(TempNome, True);
               end;
         end else begin
         ListBox1.Items.Add(Diretorio+'\'+F.Name);
      end;
      Ret := FindNext(F);
   end;
   finally
      FindClose(F);
   end;
end;