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