Fórum Gravar um arquivo TXT com formatação #214506

var s: String;
     dia,mes,ano: Word;
     file : TextFile;
(...)
with Query1 do
begin
Open;
  AssignFile( file, <diretorio que voce quer gravar> );
try 
   while not EOF do
   begin
  s := FormatFloat(´000000000´, FieldByName(´MATRICULA´).AsFloat);
  { se for a data corrente, pegue Now }
  DecodeDate(FieldByName(´DATA´).AsDateTime, ano, mes, dia);
  s := s + IntToStr(ano) + IntToStr(mes) + IntToStr(ano) + IntToStr(mes);
  s := s + FieldByName(´COD´).AsString + FieldByName(´QTD´).AsString;

  Rewrite(file);
  Writeln(file, s);
finally
   CloseFile(file);
end;

var
  F: TextFile;
  S: String;
begin
  AssignFile(F,´C:\Diretorio\Arquivo.txt´);
  Rewrite(F);
  try
    with Query1 do
      begin
        Open;
        try
          while not EOF do
            begin
              S := Format(´¬.9d´,[FieldByName(´MATRICULA´).AsInteger]);
              S := S + FormatDateTime(´YYYYMM´,FieldByName(´DATA´).AsDate);
              S := S + FormatDateTime(´YYYYMM´,FieldByName(´DATA´).AsDate);
              S := Format(´¬.2d´,[FieldByName(´CODIGO´).AsInteger]);
              S := Format(´¬.3d´,[FieldByName(´QUANTIDADE´).AsInteger]);
              Writeln(F, S);
            end;
        finally
          Close;
        end;
      end;
  finally
    CloseFile(F);
  end;
end;