Função para criar diretorio na Exportação de dados
Página 1 de 1
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.
Função que para pegar o Diretorio do sistema e gerar a o Diretorio.
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:
A função recebe os parametros Teste (dirNome), teste.txt (arqNome)
Gera um txt com os dados da exportação
Atenciosamente Equipe WP
Variaveis
- Código:
1.var
2.arq: TextFile;
3.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);
Atenciosamente Equipe WP
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|