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)
Nenhum comentário:
Postar um comentário