Função para criar diretorio na Exportação de dados

[TheLucasFuck 9]

Delphi //

 

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)

 

. ESPERO QUE TENHA AJUDADO