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

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

    ...

Fim do trecho gratuito • continue abaixo
CONTEÚDO EXCLUSIVO

Desbloqueie toda a DevMedia

  • +2000 artigos e vídeos
  • +40 trilhas sobre Front-end, Back-end, IA e muito mais
  • +5000 exercícios práticos
  • Mentorias ao vivo individuais
até 50% OFF
A partir de
R$ 69 /mês
Assinar agora