I cannot write data to a txt file

Question

Code:

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;

The qr component runs correctly, showmessage tells me it has 270 lines, but the while command runs only once (one line only).

Answer 1

Try this way

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;