Fórum Arquivo TXT #196571

var 
F: TextFile; 
begin 
  AssignFile (F, ´c:\temp\teste.txt´ ); 
  Rewrite(f); 
  query1.first; 
  while not query1.EOF do 
  begin 
    Write (f, query1.FieldByName ( ´NOME´ ).AsString ); 
    Write (f, query1.FieldByName( ´COD_ESTABELE´ ).AsString ); 
    Write (f, query1.FieldByName ( ´NUMEROCARTAO´ ).AsString ); 
    Write (f, query1.FieldByName ( ´DATA_TRANS´ ).AsString ); 
    Write (f, query1.FieldByName ( ´DATAVALIDA´ ).AsString ); 
    Write (f, query1.FieldByName ( ´VALOR1´ ).AsString ); 
    Write (f, query1.FieldByName ( ´VALOR2´ ).AsString ); 
    Write (f, query1.FieldByName ( ´STATUS´ ).AsString ); 
    WriteLn ( f ); 
    query1.Next; 
  end; 
  CloseFile ( f );
end;