Este é um post disponível para assinantes MVPou para quem possui Créditos DevMedia. Clique aqui para saber mais!
Artigo Clube Delphi Edição 29 - Dicas e Soluções
Artigo da Revista Clube Delphi Edição 29.
Você não gostou da qualidade deste conteúdo?
(opcional) Você gostaria de comentar o que não lhe agradou?

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
"
Este é um post disponível para assinantes MVPou para quem possui Créditos DevMedia. Clique aqui para saber mais!
Everson Borges Volaco
Everson Borges Volaco (everson@rhealeza.com.br) é desenvolvedor e instrutor certificado Borland, com experiência em aplicações cliente/servidor, usando Delphi, Interbase e Oracle. Possui três certificações oficiais Borland: Borland Delphi 7.0, Borland CaliberRM 6.0 e Borland StarTeam 6.0.




