[ecfisa]

Hola cincosoft.

Código Delphi [-]
procedure TForm1.PasarATextoClick(Sender: TObject);
var
  i: Integer;
  F: TextFile;
begin
  AssignFile(F, 'C:\TEMP\ARCHIVO.TXT'); // el nombre del archivo de texto
  ReWrite(F);
  DataSet.Open;  // tabla a pasar
  while not DataSet.Eof do
  begin
    for i:= 0 to DataSet.FieldCount-1 do
      WriteLn(F, DataSet.Fields[i].AsString);
    DataSet.Next;
  end;
  DataSet.Close;
  CloseFile(F);
end;

Un saludo.