Artigo Clube Delphi Edição 29 - Dicas e Soluções

Dicas e Soluções

Soluções rápidas no Delphi

Geração de arquivos colunados

A procedure a seguir recebe dois parâmetros – o parâmetro DataSet (que pode ser do tipo SQLQuery, SQLTable, SQLClientDataSet, IBQuery, IBTable, ClientDataSet etc.) que dará acesso aos dados, e o parâmetro NomeArq, o nome do arquivo-texto a ser gerado.

A procedure cria uma subpasta chamada “Arquivostexto” – dentro da pasta do executável que contém a procedure. Lá será gerado um arquivo-texto com o nome especificado.

procedure GerarArquivoTexto(

  DataSet: TDataSet; NomeArq: String);

var

  Registros: TStringList;

  Linha, Espacos, Diretorio: String;

  TamanhoMaximo, i, j: Integer;

begin

  TamanhoMaximo:= 0; Diretorio:= '';

  registros:= TStringList.Create;

  DataSet.Open;

  DataSet.First;

  try

"

A exibição deste artigo foi interrompida.

  Este é um post disponível para assinantes MVP

Este post também está disponível para assinantes da ClubeDelphi DIGITAL
ou para quem possui Créditos DevMedia.  Clique aqui para saber mais!

Saiba como acessar este post através de Créditos DevMedia:

Assinatura de Créditos – Aqui este post custa R$ 1,47
Com esse plano você compra R$ 180,00 em créditos e ganha, em média, 80% de desconto no preço do post.  
Assine agora

Plano ocasional - Aqui este post custa: R$ 1,96 (assinante) ou R$ 2,45 (não-assinante)
Você compra um mínimo de R$ 60,00 em créditos e ganha, em média, 50% de desconto no preço do post.  
Compre agora

Plano conveniência – Neste plano este post custa R$ 4,90
Neste plano você compra somente um post, pagando seu preço sem desconto.  
Compre agora