Esse artigo faz parte da revista Clube Delphi edição 29. Clique aqui para ler todos os artigos desta edição

 

e. 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

    while not DataSet.Eof do

    ...

Quer ler esse conteúdo completo? Tenha acesso completo