I can not write data to a txt file

Question

I can not write data to a txt file

Navigation

#1 by (1 votes)

-1

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 informs me that it has 270 rows, but the while statement is only executed once (one line only).

delphi

asked by anonymous 20.08.2018 / 14:35

1 answer

Print table data Doubt about functions in php

score 1 · Accepted Answer

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;