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

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

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

Mensagem por MauvadO em Ter Abr 07, 2015 10:27 pm

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:
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);
Escrevendo os dados no arquivo teste.txt  e fecha o arquivo (CloseFile)

Atenciosamente Equipe WP
Laughing Laughing
avatar
MauvadO
Admin
Admin

Mensagens : 23
Data de inscrição : 04/04/2015
Idade : 16

http://worldprogramme.livreforum.com

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum