Pasar una campo tabla a txt

[cincosoft]

Hola,

Tengo una tabla de sql-server y querría posar el contenido de todas las filas e un campo a txt plano. Cual es la forma más directa?

Gracias.

[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.

[cincosoft]

Perfecto. Muchas gracias.