-1

Código:

qr.ParamByName('mes').AsString:= edmes.Text;
qr.ParamByName('ano').AsString:= edano.Text;
qr.Active:= true;
qr.First;
try
  AssignFile(arq, 'relatorio.txt');
  Rewrite(arq);

  showmessage(inttostr(qr.RecordCount));

  while not qr.Eof do
  begin
    writeln(arq, qr.FieldValues['dt_ficha'] + ';' + qr.FieldValues['unidade'] + ';' + qr.FieldValues['profissional'] + ';' + qr.FieldValues['count']);
    qr.Next;
  end;

  CloseFile(arq);
  ShowMessage('Arquivo criado com sucesso!');
except
end;

O componente qr é executado corretamente, o showmessage me informa que tem 270 linhas, mas o comando while só é executado uma vez (uma linha apenas).

1 Resposta 1

1

Tente desta forma

qr.ParamByName('mes').AsString:= edmes.Text;
qr.ParamByName('ano').AsString:= edano.Text;
qr.Open;

try
  AssignFile(arq, 'relatorio.txt');
  Rewrite(arq);

  showmessage(inttostr(qr.RecordCount));
  qr.First;
  while(not(qr.Eof))do
  begin
    writeln(arq, DateTimeToStr(qr.FieldValues['dt_ficha']) + ';' + qr.FieldValues['unidade'] + ';' + qr.FieldValues['profissional'] + ';' + IntToStr(qr.FieldValues['count']));
    qr.Next;
  end;

  CloseFile(arq);
  ShowMessage('Arquivo criado com sucesso!');
except
  On E: Exception do
    ShowMessage(E.message);
end;
10
  • nao funcionou. pior que esse procedimento é simples e nao estou entendendo qual o erro... 20/08/2018 às 12:46
  • 1
    Qual sua versão do delphi? Você programou alguma coisa em algum dos eventos da query? Antes do writeln coloque isso ShowMessage(IntToStr(qr.recno)) e veja se na primeira vez que entra se está no RecNo 0 ou 1 20/08/2018 às 12:48
  • usando recno aparece 1 20/08/2018 às 12:49
  • 1
    Confira minha resposta novamente, altera o exception da forma que mostrei, é para ser exibido o erro, acredito que está dando erro ao salvar seu arquivo de texto, por isso passa uma vez só. E mais uma coisa... Se você está na versão 10.2 que é a mais atual, use os componentes FireDAC ao invés de Zeos, são muito melhores 20/08/2018 às 12:51
  • 1
    Resposta editada. Seguindo a lógica, possivelmente seu campo count daria problema também por ser inteiro (acredito eu). E no caso do delphi gratuito, então beleza, fireDAC é mais para a versão paga mesmo. 20/08/2018 às 12:57

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .