Fórum Como Gerar Arquivo TXT #237523

procedure TForm1.Button1Click(Sender: TObject);
var Lista: TStringList;
begin
  Lista := TStringList.Create;
  with Query1 do
   begin
     Close;
     Sql.Clear;
     Sql.Add(´select * from tabela´);
     Open;

     while not eof do
      begin
        Lista.Add(Fields[0].AsString +´ - ´+Fields[1].AsString+´ - ´+Fields[2].AsString)
        Next;
      end;
   end;
   Lista.SaveToFile(´C:\teste.txt´);
end;