Função para Criar Diretorios na Exportação de Dados

Essa é uma dica para gerar um diretório no diretório padrão do sistema em exportação de dados em um txt.

Variaveis

Código:


var
arq: TextFile;
pasta: String;

Função que para pegar o Diretorio do sistema e gerar a o Diretorio.

Código:

 function IniciaDirArq(dirNome: string; arqNome: string): string;
  begin
    pasta := GetPath(Application.ExeName) + '' + dirNome + '';
    CreateDirectory(PAnsiChar(pasta), nil);
    pasta := pasta + arqNome;
    AssignFile(arq, pasta);
    Rewrite(arq);
  end;

Explicação:

Primeiro Declaramos as variaveis arq do tipo TextFile e pasta do tipo string, a variavel pasta na função receberá o GetPath da aplicação(onde está o executavel) + o nome do diretório a ser criado (dirNome), em seguida gera o direório (CreateDirectory), apos gerar o diretório é precisso gerar o arquivo cujo nome será passado por parametro da função (arqNome) faz a atribuição ao caminho do arquivo (Assingfile), Rewrite deixa o arquivo pronto para excrita.

Aqui chama a função:

Código:

IniciaDirArq('Teste', 'Teste.txt');

A função recebe os parametros Teste (dirNome), teste.txt (arqNome)

Gera um txt com os dados da exportação

Código:

 Write(arq,
    '2'+
    'T'+
    '0.00' +
    '0.00' +
    '0.00' +
    '0.00');
  CloseFile(arq);

Escrevendo os dados no arquivo teste.txt e fecha o arquivo (CloseFile)