Olá! Thursday, 28 de March de 2024.



Dicas CódigoFonte.net
Thursday, 30 de April de 2009

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)


Comentários do artigo [Novo comentário]

João Paulo Barreto - 22 de May de 2010 - 15:06
faleu fera estava prescisando mesmo,...!
Para adicionar um comentário você deve efetuar o login


Gostou do CódigoFonte.net? Quer indicar a um amigo?
Preencha os campos a seguir.
Seu Nome:
Seu E-mail:
E-mail de seu Amigo:


CodigoFonte.net » Meu Mural » Competiva - Criação de Sites » Todos os Direitos Reservados © 2002/2010