Função para criar diretorio 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

var arq: TextFile; pasta: String;

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

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:

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

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

Gera um txt com os dados da exportação

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)

Enviar um Artigo